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This issue oi Forth Dimeiisiom heralds the beginning of 
the 20th year of the Forth Interest Group. For me, someone 
who joined this legacy only in the last two years, this mile- 



All-new development environment from FORTH, Inc. 

SwiftForth" 

for Windows 95/98 and Windows NT 
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Super-efficient implementation 
for speed (32-bit subroutine- 
threaded, direct code expansion) 
Full GUI advantages (like drag- 
and-drop editing; hypertext 
source browsirig, visual stacl<, 
watchpoints, and rnemory win- 
dows) but retains traditional 
command-line control and tools 
Complies with ANS Forth, in- 
cluding most word sets 



■ Easy to add DLLs and to call 
DLL functions 

■ DDE client services for inter- 
application communication 

■ Fries and blocks supported 

■ Simple creation of windows, 
menus, dialogs, etc. — no 
third-party tools needed 

■ Flexible, extensible access to 
system callbacks and mes- 
sages, and exception handler 



FORTHInc. 

1 1 1 N. Sepulveda Blvd., #300 
Manhattan Beach, CA 9026&-6847 
800.55.FORTH . 310.372.8493 . fax 310.318.7130 
forthsa1es@forth,com ■ www.forth.com 




This Classic is no longer out of primf 

Poor Man's Explanation of 
Kalman Filtering 

or, How I Stopped Worrying and 
Learned to Love Matrix Inversion 

by Roger M, du Plessis 

tl9.95 plus shipping and 
handling (2,75 for surface U.S., 
'1. 50 for surface international) 



You can order in several ways: 

e-mail; kalman@taygeta.com 
fax; 408-641-0647 
voice; 408-641-0645 




stone seems to signify many years of dedication and innova- 
tion on behalf of the programmers and developers who use a 
language that is used so reliably and silently around the world. 

If you've been reading Office News regularly, you know 
about some of the changes we've been making here at the 
main office. We may need to make more changes in the com- 
ing months. We are acquiring new members at a greater rate 
than we had been, however, if each member could invite sev- 
eral friends to join the Forth Interest Group, we at the office 
would be happy to send a complimentary issue of Forth Di- 
mensions for their review. March is our major renewal time, 
and quite a few of you haven't yet renewed at press time. 
Timely renewal is important to keep Forth Ditnensions com- 
ing to you without interruption. 

Cost-wise, we run the Forth Interest Group as lean as we 
can. FIG is being kept alive by the kind donations of many. 
Last year, FORTH, Inc, donated a new modem, and the print- 
ing of 1000 membership brochures that we use to solicit new 
members, Taygeta Scientific Inc. donates the space for the 
forth.org web site and Brandon Yeager's time for system ad- 
ministration of that site, Taygeta also provides Eddy Hamelin's 
time to answer the phone, to take your orders, and to assist 
me in any way I need. 

This past year, with your donations, we've upgraded the 
memory on our computer. We had been running with only a 
200 Mb hard drive; we now have a 2 Gb external hard drive 
and have added to the RAM. Our laser printer is beginning to 
show quite a bit of wear (creaks and groans that don't sound 
healthy seranade us each time we print); in all likelihood we 
will need to buy a new one this year. If anyone would like to 
donate a new laser printer to FIG, please contact us at the 
main office. We are sincerely grateful to those members who 
make generous contributions just because they want to. Your 
extra donations are put to good use. 

To be starting our 20th year is quite an accomplishment. 
The people who have contributed to Forth comprise an im- 
pressive list of talented, innovative, and 
dedicated individuals. They gave life to this 
organization, and gave you a place to begin 
your knowledge of Forth or to enhance your 
ability to use it. The question before us is 
the one that will be explored at FORML: how 
does the Forth Interest Group change and 
grow and continue to meet the needs of the 
Forth community? We look forward to your 
continuing support and participation! Hope 
to see you at FORML... 

Together we make the difference! 

Cheers, 




For infornnation about 
other publications offered 
by Taygeta Scientific Inc., you 
can call our 24-hour message 
line at 408-641-0647, For your 
convenience, we accept Master- 
Card and VISA. 



mail: send your check or money order in U.S. dollars to: 

Taygeta Scientific lnc,« 1340 Munras Avenue, Ste, 314* Monterey, CA 93940 



Trace Carter 

Administrative Manager 

Forth Interest Group 

100 Dolores Street, Suite 183 

Carmel, CA 93923 USA 

voice: 408-373-6784 ■ fax: 408-373-2845 

e-mail: of fice&f orth.org 



2 



Forth Dimensions XX.1 



CONTEMTS 




eForth for Java 

by Michael Losh 

Extending Forth's potential to reach into the on-line world, this high-level implementation for the 
Java Virtual Machine (JVM) runs as a console-style applet which can be opened in a Java-enabled web 
browser such as Netscape Navigator or Microsoft Internet Explorer, jeForth can open new opportuni- 
ties for promoting and teaching Forth to a wide audience over the Internet. 




Forth in Control: Temperature Monitoring 

by Ken Merk 

Temperature is one parameter of our environment which has an affect on all living things. Even 
machines perform differently through a range of temperatures. Many opportunities arise with the 
need to measure temperature accurately and then perform certain tasks accordingly. This article cov- 
ers how to interface a digital thermometer sensor chip to your computer's parallel port. The device 
used is Dallas Semiconductor's DS1620, which contains the sensor itself and a three-wiie serial inter- 
face inside an eight- pin DIP package. 




LOAD" Module" 

by Dave Edwards 

This article provides a method to organize programs into sections by using the first line of each 
screen — the line usually left for comments — and thereby attain a far greater degree of flexibility and 
control. The idea was developed to organize the loading of programs, but can even be used to imple- 
ment, for instance, a simple help engine. The ability to use the data on the "header" line for struc- 
tural information provides a surprising amount of functionality from such a simple mechanism. 
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EDITORIAL 




rCiraitaie isith0 Constant 

'^'i. ' - . 1 1 _ - - _ -■ ■ 



In an editor's life, there is one constant: tlie search for good material to publish that will 
satisfy the range of tastes evinced by a publication's readers. That's why you find me fre- 
quently reminding you to write for us. We are actively seeking rv^vt axXlizW^, announcements, 
letters to the editor, and even an occasional columnist. Please consider sharing your thoughts 
and experiences (and, yes, your code) with your fellow Forth users. 

■ * * 

Change can be disconcerting, but it can also bring new opportunities. Over the years, 
numerous discussions have taken place about the various resources of the world-wide Forth 
community and about how better cooperation and coordination can provide additional le- 
verage and greater opportunities for all concerned. 

In that vein, below is an announcement from the leaders of the Forth Interest Group 
and The Forth Institute. We are looking forward to the results of this news. In fact, the first 
tangible results will appear in these pages in the next issue — stay tuned, and let us (and our 
authors) know your reactions. 

— Marlin Ouverson, Editor 

"For several years, the Journal of Forth Applications and Research has been the pre-eminent 
location for refereed papers on Forth technology and its application. Beginning with Vol- 
ume Vll of the Journal, JFAR has become electronic and can be found on the Web at 
www.jfar.oig. Its new editor is Dr. Peter J. Knaggs, of the Bournemouth University in the 
U,K. As an additional service to the Forth community, selected refereed papers from [FAR 
will now appear in a special section of each issue of Forth Dimensions. These papers will 
represent both the currently electronically published volume and significant papers from 
previous volumes. 

"It is our hope that, through Forth Dimensions, these papers will find a new and larger 
audience. By expanding Forth Dimensions to include a section for the hard copy puhlication 
of peer-reviewed papers from fFAR, the Journal section of Forth Dimeusions can now provide 
an important means of getting important papers about Forth (particularly from the aca- 
demic community) widely disseminated. 

"We hope you will be inspired by these papers to explore your own work in detail, in 
both Forth Dimensions and in [FAR." 



Skip Carter 
President, FIG 



Larry forsky 

The Forth Institute 



Would you like to brush up on your German and, at the same time, get first- 
hand information about the activities of your Forth friends in Germany? 

Become a member of the 
German Forth Society 
("Deutsche Forth-Gesellschaft") 

80 DM (50 US-$) per year 
or 32 DM (20 US-$) for students or retirees 

Read about programs, projects, vendors, and our annual conventions in the 
quarterly issues of Vierte Dimension. For more information, please contact: 

Fred Behringer 

Pianegger Strasse 24 

81241 Muenchen 

Germany 

E-mail: behringe@matlnematik.tu-muenchen,de 
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N EW PRODUCT ANNOUNCEMENT 



340 Mbyte Continuous Past Storage for 
Pocket Data Logger Module 

Victor, NY— The TDS2020D is a Forth-based, pocket-sized 
datalogger module which now provides continuous fast data 
collection to PCMCIA cards, without any break caused by 
transfer of data to hard disk or flash-ATA card. It will work 
from a small battery for months, storing data on Windows-, 
DOS- or 05/2-formatted cards. 

Fast data-logging under interrupt into PCMCIA disks oi 
flash-ATA cards is achieved with a double data cache. One 
cache is used for data collection under interrupt, while data 
in the other buffer is being transferred to the PCMCIA card 
by the foreground routine (or another task, if the multitasker 
is installed). Data collection speeds of over 100,000 bytes per 
second can be achieved. 

High-level, ANS Forth data-logging programs provided can 
be used immediately, but ate customizable for individual ap- 
plications. By taking several samples on each interrupt, data 
rates over 100,000 bytes of ten-bit A-to-D data per second 



can be achieved. The rate at which data can be collected into 
one half of the buffer is ultimately limited by the time needed 
for the foreground program to push the alternate half of the 
data to disk. 

For use anywhere large amounts of portable data have to 
be obtained, the TDS2020D stores data in PC-file format onto 
PCMCIA cards for subsequent analysis on a PC. 

Typical current for computer, adapter and hard disk is 
350nA standby, 30mA operating. For example, 24 bytes of 
digital, analog, and time information logged every minute 
will cause the hard disk to power up for only five seconds 
every two weeks. 

Returning the PCMCIA disk from the field, the storage 
device can be put into a PC's PCMCIA slot and, without any 
special software, data can be copied to a PC file, 

Saelig Company LLC 

1193 Moseley Road 

Victor, NY 14564 

716-42S-3753; fax 716-425-3835 

saelig@aol.com • vww.saelig.com 




Excerpts from a letter by the chair of the ANS Forth Technical 
Committee (TC) — According to rules governing ANSI standards, 
four years after a standard is published, its TC must vote to 
"reconsider, reaffirm, or withdraw" it. As ANS Forth was pub- 
lished in 1994, this is the year. Note that if we fail to act, it 
will be withdrawn for us,.,. 

1. The TC shall get a letter ballot to vote to "reconsider" the 
standard. If this fails, the other two choices are to "reaf- 
firm" or "withdraw," which would be a subject of a sec- 
ond ballot in that case. If it passes, we'll propose a first 
meeting to coincide with the 20th FORML Conference at 
Asilomar, California, on the weekend of Nov. 20-22 and a 
second meeting to coincidewith the next Rochester Con- 
ference (to be held somewhere other than Rochester). 

2. If we vote to "reconsider," we will do so with an agenda 
limited to the following items: (a) Withdrawal of "obso- 
lescent words," (b) Ratification of "clarifications" passed 
since publication of the Standard, (c) Support for embed- 
ded and ROMable systems, and (d) Support for interna- 
tionalization and extended character sets. 

3. The above agenda may have additional topics added by a 
2/3 vote of the membership. 

4. People have requested consideration of additional topics, 
such as graphics and multitasking. However, consistent 
"common practice," or proposals reflective of existing 
"conmion practice," seems to be in short supply. The cur- 
rent SD-2 provides a mechanism for such issues: a "Tech- 
nical Group" (TG), which is a sub-group of the TC given a 
specific mission, whose product is a "Technical Report." 
ATRdoesn't have the official standing of a Standard...but 
can serve as a basis for implementations.. .until the tech- 
nology has matured sufficiently for a standard. 

6. We propose to require that all proposals be submitted elec- 
tronically, and meet [certain] criteria... 



...The present annual fee for TC members and observers is 
$300. There was a question of whether an additional $300 
would be assessed for international representation; the rul- 
ing is that, since we do not have an active ISO Uaison or work- 
ing group, it is not applicable. 

The $300 fee pays for a principle and one alter- 
nate..,. Membership of TGs is not limited toTC members; how- 
ever, TG members who aren't TC members must pay $300/yr. 

Until our next meeting, you can become a full member by 
voting in two successive letter ballots (your vote on the sec- 
ond one counts). For this reason, 1 think it's a good idea to 
submit letter ballots on the issues from the organizational 
meeting. When we become active, it still takes two meetings, 
although NCITS [National Committee for Information Tech- 
nology Standards, pronounced "insights"; formerly X3.] is 
considering hberalizing this, since many groups meet infre- 
quently (as we propose)... You can lose your membership by 
failing to pay your fees, by failing to respond to 80% of the 
letter ballots in a calendar quarter, or by failing to attend three 
successive meetings. Both the attendance and letter ballot 
voting requirements apply; you may not skip meetings and 
just vote electronically! ....There will be no IEEE fee waivers. 

If you are not presently a TC member and wish to be in- 
cluded in the letter ballots in order to become a member, 
please notify me (erather@forth.com) and Greg Bailey 
(greg@athena.com) . 

Membership is open to any person or organization who is 
"materially affected" by the subject matter {by their ovm defi- 
nition). It is not limited to U.S. members, so long as we are 
strictly an ANSI group....A consultant who wishes to be a 
member must not receive primary funding (e.g., >50%) from 
any voting member. 

—Elizabeth Rather 
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eForth for Java 



j eForth for, lava, or jeForth, is a high-level Java implementa- 
I tion of eForth for the Java Virtual Machine UVM). It runs as a 
! console-style applet which can be opened in a Java-enabled 
I web browser such as Netscape Navigator or Microsoft Internet 
Explorer. This version of eForth has been extended to provide 
features common in other Forth systems, such as forget, 
CREATE .,, DOES>, DO .., LOOP, and Simulated block 1/0. 

jeForth can open new opportunities for promoting and 
teaching Forth to a wide audience over the Internet. The au- 
thor intends to freely distribute this system, including its 
source code, to non-commercial users and organizations such 
as the Forth Interest Group. 

Purpose 

Another Forth written in Java? Yes, and I think this ver- 
sion is substantially different and useful in its intended niche. 
Starting back in 1995 with the introduction of Java technol- 
ogy, my vision was to create a simple Forth to demonstrate 
and promote over the Internet. The popular web browsers 
support Java applets, so it occurred to me that many people 
could easily try a "live" Forth on the Internet if it is built 
from Java. Furthermore, a Forth applet can be surrounded 
with and linked to tutorial texts, making it easy for a student 
I of Forth to experiment while referring to lessons online. Low- 
ered hurdles to learning about Forth may help revive wide- 
spread interest in our favorite language and development tool! 

A secondary and more personal purpose for this project 
was to learn more about Java, 1 have several years of experi- 
ence with C++, and learned that Java is another object-ori- 
ented language with similar syntax and flavor. At least from 
an academic point of view, 1 liked some Java features that 
make it easier and more reliable to use than C++, but I knew 
that 1 would not truly understand its benefits and limitations 
unless I did a substantial project with it. And like many Forth 
enthusiasts, I could not resist the urge to implement Forth 
on an emerging platform. So a Forth applet in Java seemed 
like a fun and worthwhile exercise. It has been, all in all, but 
Java's security restrictions and problems with early Java tools 
have made design and development less joyful than 1 had 
I hoped. 

A third possible purpose for a Java-based Forth is as a gen- 
i eral internet/intranet application development language. The 
current version of jeForth is too limited for serious internet 
appUcation development, lacking such services as HTTP QET 
and PUT requests, HTML forms processing, Java Bean inte- 
gration, Java Database Connectivity, and Remote Method In- 
vocation, 1 am planning another Forth, more suitable for com- 
mercial internet purposes, which may include the features 
[ listed above and others that web developers would want. Such 
j a commercial package will have a different name and license 

i 



Michael A. Losh • Detroit, Michigan 
mlosh@tir.com 



restrictions. But for non-commercial uses, jeForth is released 
as an open system, so you can improve and extend it as you 
wish. 

Approach 

I considered various Forth models, including some writ- 
ten in C since Java is very similar to it. B\it the C-based Forth 
systems are fairly large and I do not have much experience 
with them. eForth is small and I understand it well, so I chose 
it to be the foundation. The initial eForth model was imple- 
mented for the 8086 processor family by Bill Muench and Dr. 
C.H. Ting using the MASM macro assembler. Other imple- 
mentations for various platforms have since been developed, 
some using MASM with additional macros oi hand assembly 
of the cross-platform portions, some in other languages. 
eForth has a small number of kernel words in native code, 
then provides the rest of the Forth environment as high-level 
"colon" words. 

MASM source is not a good match for Java, so I ended up 
using Java to develop something between a cross-compiler 
and a Forth metacompiler, which is described below. The 
MASM source was ported to this special syntax. The result is 
not very elegant, but it works. When you open the jeForth 
applet, it takes a moment to actually build the high-level Forth 
words in memory using these metacompiling routines. 

When running, jeForth is mostly in this high-level Forth. 
The kernel words and Forth VM are implemented in high- 
level Java code, which itself runs on the Java VM, whose vir- 
tual machine instruction bytecodes are interpreted (like Forth's 
inner interpreter) or compiled into native code, possibly with 
a "Just-In-Time" compiler. These multiple software layers in- 
hibit performance, but should suffice for demonstration and 
training purposes. Furthermore, by providing most of the 
Forth system as colon definitions, a student can more easily 
get "under the hood" to understand how Forth systems are 
designed and operate. 



The author is a Microsoft Cert ifiedlrainer for Windows programming 
with the Win32 API, Visual C++, and MFC, and is the director of soft- 
ware consulting at American Systems Technology/lnc. 



eForth Virtual Machine 

The eForth VM is a set of Java data structures and routines 
{methods in Java-speak) organized into the ForthMachine 
class. The eForth memory is 65536 words of 32 bits each, 
plus another 8192 words for BLOCK I/O buffers, stored in an 
array of Java 32-bit integers named "m," To simplify porting, 
the memory organization was kept very close to the original 
eForth except for the USER variables, which are stored in low 
memory. All eForth data, including parameter and return 
stacks, code, name dictionary entries, and user variables are 
located in m. Figure One shows a memory map. 

Forth usually assumes fairly free access to all memory; Java 
does not. In the name of security and program robustness. 
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Figure One. Memory map 

Java does not offer pointers like C and C++. Mark Roulo did a 
good job describing these issues in his article on Misty Beach 
Forth in the November/December 1997 issn^ ot Forth Dimeti- 
mns. From what I read, he used a more sophisticated approach 
using multiple data types and Java references, [ simply allo- 
cate a big array and use indices as pointers. After all, what 
more is a "real" memory address than an index to a RAM 
location? My approach was easy to use, but undoubtedly sac- 
rifices speed, 

I also sacrifice some space, because this Forth does not 
address bytes! Each eight-bit character is stored in a 32-bit 
cell. Of course, this scheme wastes 75% of its bits, but it greatly 
simplifies the VM to have everything treated as 32-bit cells, 
Java strings can be converted to the 32-bit characters easily, 
as needed, using the routines ForthMachine. strlit and 
ForttiMachine. makes tring. The consistency of cells allowed 
me to optimize away some of the alignment instructions, as 
well as replacing cell+ and cell- with fast 1+ and 1- primi- 
tives. CELL+ and CELL- can still be used by applications, of 
course. The current version uses 284] cells (11,364 bytes) for 
code tokens, and 215S cells (8632 bytes) for the Name Dic- 
tionary, so the actual waste is not excessive, considering that 
platforms running Java typically have far more memory than 
this. The lack of byte addressing may put off some people 
but, in a way, addressing eight-bit bytes is somewhat archaic 
in this day and age of cheap and plentiful 32-bit processors. 
jeForth proves that Forth (or any programming system) does 
not need byte addressing. 



jeForth supports token threading. The eForth kernel is a 
small set of primitive words that are implemented in native 
code, which in this case is high-level Java Development Kit 
(JDK) 1.0 code and Application Programming Interface (API) 
calls. The 32-bit integer tokens for these primitive routines 
have bit 1 7 set (0x00020000). High-level words, such as co- 
lon words, use their code "address" (array index in m) as a 
token. Note that all valid code addresses will be smaller than 
the value implied by the primitive bit. During execution of 
Forth words, the inner interpreter (found in the function 
ForthMachine . run of the ForthMachine object class, shown 
below) gets the next instruction token. If the token is a primi- 
tive routine, the function ForthMachine. doPrim is called. 
This function is really a large case structure with the Java 
instructions for each primitive. Otherwise, if the token indi- 
cates a high-level word, the inner interpreter nests into that 
routine, first saving a return address on the return stack. To- 
ken threading works well for a virtual machine implemented 
in a high-level language. A few of the eForth kernel words 
had to be redesigned, because they assume direct threading 
and direct execution of native CPU instructions, 

[See Listing One] 

A few primitives were added to the kernel: dm* and UM/ 
MOD for math, 1+ and 1- for fast increments and decrements, 
PICK and DEPTH for working with the stack, a few diagnostic 
control routines, a primitive to set up the USER variables area, 
and BLOCK I/O primitives for reading and writing the block 
file. Some of these were required by the eForth VM; others 
were added for performance or feature improvements. 

The eForth Name Dictionary was implemented in a way 
very similar to other eForth systems, but the name length 
and special flags are stored in a 32-bit cell instead of a single 
byte, and each character of a word's name is stored in a sepa- 
rate 32-bit cell. 

Metacompiler 

Porting to Java, I had to replace some of the functionality 
of MASM. In some ways, I went beyond what MASM does. I 
defined ForthMachine. header to set up a header in the name 
area of the dictionary. ForthMachine. primitive is a spe- 
cial routine to set up a special header for a primitive word. 
There are routines to mark words as IMMEDIATE or compile- 
only. For putting code and data of different kinds into the 
code area of the dictionary, I made ForthMachine . code and 
ForthMachine , literal. I had to implement dictionary 
searching for ForthMachine. call so I could compile calls 
to Other high-level Forth words. The Java dictionary search- 
ing functions are only used for building the jeForth dictio- 
nary and code image at initialization, not for later colon-com- 
piling the user's words. 

To metacompile control structures, I implemented several 
Java routines with names like ForthMachine, compIF, and 
ForthMachine .compTHETl, Here I departed quite a bit from 
the MASM coding style because it would be difficult to imple- 
ment MASM-liKe labels for branch targets, I went with the 
Forth approach instead! Here is a sample of the metacompiler 
"code" for the high level word FORGET [see Listing Two]. 

A few of the more complex eForth words were a little diffi- 
cult to convert to this style, but the "eForth in Forth" Usting 
published by Dr. Ting in the eForth Implementation Guide helped, 
as did a temporary tool I built to display a word's raw code. 
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Listing One 



public void run() 



try 



// Inner interpreter loop 
while ( ! bGone) 



try 



int inst = m( ip++] ; 



// Read current instruction, 
// advance instr. pointer 



if 



{ (ml TRACING] S SHOWING) !- 0) 



inform (inst) ; 



// Report state if tracing 



} 

if (inst > PRIMITIVE) // Check for primitive bit 

{ 

// Strip off primitive instruction bit, 
/ / execute primitive 
doPrim(inst - PRIMITIVE); 

} 

else // Nest Into colon word 

( 

rp--; 

m[ rp] = ip; // save ip for return 

ip * inst; // "inst" is word's address 

1 

} 

catch (ArraylndexOutOfBoundsExoeption e) 
{ 

app, print {" address" ) ; 
// Duplicate Forth THROW 
rp - m[ HANDL] ; 
m[ HAHDL] = m[ rp] ; 
rp++; 

sp = rri rp) ; 
rp+ + ; 

pop ( ) ; 

push (NULLSTR) ; // blank error string 
doPrim(EXIT) ; 

) 

} // end while 

} 

catch (TOException e) 
{ 

app. showStatus ("Runtime EKception; " 4 e , toStrlng ( ) ) ; 



return; 



public void doPrim(int inst) throws IOExcept\on 



int a, b, c, 
char ch; 



:l, n; 



// temporary integers 
/ / temporary character 



switch (inst) 



// BYE 
case BYE: 



{ — ) 
bGone 



Exit eForth, 
true; break; 
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// ?RX { — c T I F ) 

// Return input character and true, or a false if no input, 
case QRX : 

yield ; 

if (keysO > 0) 

{ 

push <d€queueKey {) \ ; 
push (TRUE) ; 

} 

else 
{ 

push (FALSE) ; 

} 

break; 

// TX! ( c — ) 

/ / Send character c to the output device , 
case TX3T0 : 

ch - (char) (pop () i 255); 

app.emitChar (ch) ; 

yield 0; 

break; 

// !I0 ( — J Initialize the serial I/O devices, 

case STOIO: break; 

// doLIT ( w ) Push an inline literal, 

// ip points to inline value, 

// push it on stack and advance ip 

case DOLIT: push (ni( ip + +] ) ; break; 

// EXIT ( — ) Terminate a colon definition, 
// resume instruction at saved address 
case EXIT: ip = m[ rp] ; rp++; break; 

// EXECUTE ( ca — ) Execute the word at ca . 
case EXECy; 
rp— ; 

m[ rp] = ip; // save current ip 

i - pop ( ) ; 

if (i>PRIMITIVE) 

( 

// Execute Primitive 
doPrimd - PRIMITIVE); 

} 

else 

( / / point to new code so it will execute next 
ip = i; 

} 

break; 

(The rest is omitted.) 
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Listing Two 



) 



including 



// FORGET ( " name" 

// Forgets ail the recent words back to and 
// the named word in the CURRENT vocabulary, 
header (" FORGET" 1 ; literal (32) ; call ("WORD" ) ; 

literal (CRRHT) ; code (AT) ; 
call (" find" ) ; code(DUPP); 
complF ( ) ; 

code (SWAP) ; literal (CP) ; 
code (STORE) ; 

code (DEC); // opt for 

code (AT) ; code (DUPP) ; 

literal (LAST) ; cede (STORE) ; 

// opt below for: 2 CELLS - 

code(DEC) ; codefDEC) ; 

literal (HP) ; code (STORE) ; 

call ("OVERT" ) ; 
compELSE ( ) ; 

code (DROP) ; code (DROP) ; 

literal (-1); call [" abor t\ " " 

strlit (" which " ) ; 
compTHEN ( ) ; 
cod« (EXIT) ; 



CELL- 



Consol« and I/O 

The jeForth applet class provides a simple console-style 
user interface that can be opened in a web browser. In its 
current form, it presents a 2D row by 72 column display with 
a simple underline cursor. You may type Forth commands 
and use the backspace key, but other cursor movement keys 
are not (yet) supported. The display will automatically scroll 
up as needed. 

The Forth VM and the console communicate through two 
circular queues stored in the ForthMachine object: one for 
keyboard characters, and one for display characters. Since the 
eForth VM and the console run under different Java threads, 
the queues provide a synchronized interface between them. 
The current console is not very fast, but optimizations have 
been made to avoid some of the 
window repainting. The overall 
effect of using the console is like 
working with a Forth system 
over a serial link at a modest 
baud rate. The overall architec- 
ture is shown in Figure Two. 



To help teach new Forth programmers about 
BLOCK storage, I implemented a "simulated" 
BIjOCK wordset. The simulation comes from the 
fact that your changes to any block are not per- 
manent: once you leave or restart the applet, the 
BLOCKS revert to whatever source code is defined 
in its web page. This rather significant limita- 
tion comes fromjava's inherent security philoso- 
phy, sometimes called the Java sandbox. 
Untrusted Java applets are not allowed to read 
or write to any local files on the client computer 
and cannot access other potentially sensitive re- 
sources, such as the system clipboard. The only 
way to load or save information is to use the 
applet's server. .Since I did not want to get into 
serious server-side development at this time, 1 
have left it out. In the initial release of jeForth, 
up to ten source blocks can be defined in the 
hosting web page's applet section, using PARAM 
tags. For example, here is a section of the HTML 
web page demonstrating release 1 .00 of jeForth 
[see Listing Three]. 

During the applet initialization, this code will 
be read into a large character array that repre- 
sents the user's BLOCK file. The user can then 
view the current INDEX, list individual BLOCKS, LOAD them, 
and edit them using most of the Starting Forth's "Find - Put" 
line-editing commands. The fact that permanent copies of 
your Forth code changes cannot be made is not crippling for 
a demonstration and teaching environment, but is unfortu- 
nate. If jeForth can send get and PUT (or POST) HTTP re- 
quests, then the server could store the user's blocks. 1 hope 
this can be attempted in the future. 

In the example HTML for jeForth, you will notice the pa- 
rameter tag with a name of "boot," Once jeForth reads its 
block parameter statements, it will load and execute any boot 
string you provide. This allows the web page to be self-boot- 
ing into your application. The block and boot parameter tags 
give a web developer a means to build a rudimentary but fully 

interactive web site. Also 
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eForth Extensions 

As a demonstration and 
teaching system, I wanted 
jeForth to have many features 
missing from regular eForth but 
common to other Forth sys- 
tems, I wanted the system to be compatible with Leo llrodie's 
excellent introductory book Starting Forth. To achieve these 
goals, I have added several features to the eForth foundation. 
Compliance with American National Standard (ANS) Forth 
would also be nice, but it has not been a priority for me, 
Wonyong Koh has developed a variation of eForth called 
hForth, for 8086 and other processors, that is ANS compli- 
ant; perhaps some of that system can be incorporated into 
jeForth at a later date. 



jeForth console 
object (extends 
Java Applet) 



Java 
Enabled 
Web 
Browser 



L 



note that placing single or 
double quotation marks in 
the tag source statements is 
tricky. In HTML, you can 
place single quotes in a 
double-quoted string, and 
vice versa, but it is difficult 
to do both. In the line with 
"blockl . 1 " name, you can see 
a "&#39;" this is HTML's way 
of inserting a specific I SO -en- 
coded character — in this 
case, the single quote. 
Some other obvious additions to eForth were do ... loop 
and CREATE ,.. DOES> words, do and loop have been Forth's 
traditional indexed looping words. Like Frank Sergeant's 
Pygmy Forth, eForth offers the simpler FOR and next for in- 
dexed looping, based on the influence of Chuck Moore's 
cmForth, But I thought that providing the do ... loop words 
is important for a teaching system. Examples from Starting 
Fort/i and other tutorials using DO ... loop now work in jeForth, 
Regular eForth provides the create word for defining 
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Listing Three 

! ^APPLET code-" jeFcrth. class" width=540 height=310> 



■ <param name=blockl value=""> 

1 <param name=blockl , value='( Chapter 1, "Fundamental Forth" ) '> 

1 <parani name=bIockl . 1 valLie=' ( Sample Forth from Leo BrodieSi#39 ; s "Starting Forth" book ) '> 

: <param name-blockl . 2 value=" "■> 

I <param name^blookl . 3 value-' ( LARGE LETTER-F ) "> 

<param name=block.l . 4 value=" : STAR 42 EMIT ; "> 

.;param name=blockl . 5 value=" : STARS 1- FOR STAR NEXT ; "> 

<param name=blockl . 6 value=" : MARGIN CR 30 SPACES ; "> 

<param name=blockl . 7 value-": BLIP MARGIN STAR ; "> 

<param name=blockl . 3 value=" : BAR MARGIN 5 STARS ; "> 

<parara nanie=bloi::lcl . 9 value=" : F BAR BLIP BAR BLIP BLIP CR ; "> 

<p3cam na[(ie = bloi2kl . 10 ve.Lij.e~' "> 

<parani name-blockl . 11 valu^-': GREET ." Hello, I sp&ak Forth " ; '> 

<parara name=blockl . 12 valije=" : FOUR-MORE 4 + ; "> 

<param name=blockl . 13 value=" : SIDES STAR SPACES STAR ; "> 

I 

: <param name-blockl . 14 value-": NOTHING ( do nothing ) ; "> 

<param name=blockl . 15 value=" "> 



<param name-boot value=" CR 1 1 INDEX" > 



</APPLET> 



named areas in memory, but does not provide the does> com- 
mand to associate special mn-time behavior with the name. 
Since extensibility and defining words are important concepts 
for students of Fortli, I added does> to jeFoith. 

Another command conspicuous in its absence from eForth 
is FORGET, used to remove recent words from the dictionary. 
1 have added it to jeForth, but it only searches the current 
vocabulary, I have not added any of the common vocabulary 
creation and management words, but these words can be 
added later. 

Experienced programmers can see in theii minds what is 
going on in tbe Forth VM in terras of stack operations, sub- 
routine nesting, and so on. If less experienced users of Forth 
can actually see tbese actions, they too will quickly learn to 
visualize them. To provide this visibility, t have added two 
words: TR-^iCE and STEP. TRACE looks up the name of the word 
following it, then executes that word showing a display of 
the important VM parameters between each token execution. 
The display includes the top stack item, top return stack item. 



Listing Four 



TRACE 


PAD( enter] 












stack : 




return : 




2245 


ip: 


2245 


: PAD 


stack : 




return : 




2245 


ip: 


718 


:^ HERE 


stack : 




return : 




718 


i-p: 


714 


doLIT 


stack : 


34 


return : 




718 


ip: 


716 




stack: 


3225 


return : 




718 


ip: 


717 


EXIT 


stack: 


3225 


return : 




2245 


ip: 


719 


doLIT 


stack : 


80 


return : 




2245 


ip: 


721 


: + 


(2) 




3225 


(10) 




2258 






stack ; 


80 


return ; 




721 


ip: 


513 


UM+ 


(2) 




3225 


(10) 




2245 






stack : 





return : 




721 


ip; 


514 


DROP 


(2) 




3305 


(10) 




2245 






stack : 


3305 


return : 




721 


ip: 


515 


EXIT 


stack : 


3305 


return : 




2245 


ip: 


722 


EXIT 



and the current instruction pointer and the name of the to- 
ken to which it points. If there is more than one item on the 
parameter slack, up to three more items in each stack are 
shown along with the depths oi the stacks, step does the 
same thing, but waits for a user keystroke between each to- 
ken execution. Either will revert to "quiet" execution if the 
user presses the escape key. Here is a sample output from ap- 
plying TRACE to execution of the word PAD [see Listing Four] . 

Another frustrating area for new Forth programmers is 
memory access, since it is so easy to get stack arguments in 
the wrong order or otherwise use an invalid address. For bet- 
ter performance and flexibility, typical Forth systems do not 
try to detect this situation and will crash when a bad address 
is used. I have used a free feature of Java to detect and warn 
the user of the problem. Java "throws" exceptions which can 
be "caught" in a nested way in Java source code, 

One type of exception is for "invalid array index," The 
inner interpreter code (see above) catches this exception, then 
executes the equivalent to the eForth throw code, printing 
an error message and restoring the stacks. 
The impact of this feature is negligible on 
performance because Java wilJ do these 
checks anyway, so we miglit as well take 
advantage of it. The user sees an "address 
?" warning when executing something like 
"-1 g"j or something that seems perfectly 
reasonable like " ' swap 20 dump". By 
the way, the DUMP example fails because 
SWAP is a kernel primitive and its token is 
not a valid address. The code for swap is 
written in the doPrim { ) function, which 
is completely outside the memory "view- 
able" from jeForth execution. To see the 
code for dup, look at the Java source code! 



ok 
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Performance 

j As discussed earlier, jeForth is not designed for perfor- 
I mance. Early versions of it were very slow, hampered by im- 
j proper use of Java threads and the yield ( ) function. Early 
display routines were also inefficient, causing a lot of un- 
needed repainting of the applet window. These basic prob- 
lems have been fixed, but there is room for a lot of improve- 
ment. To give you some idea of the relative performance of 
j jeForth, 1 liave applied the following benchmarks used by 
I Mark Roulo: 

I Stack test: 

■ : INNER 10000 DO 34 DROP LOOP ; 
; : OUTER 10000 DO INNER LOOP ; 

I Variabks test; 
VARIABLE TEMP 

: INNER 10000 DO 3^ TEMP I LOOP ; 
I : OUTER 10000 DO INIJER LOOP ; 

i However, for the slower jeForth, I only ran 1000 loops in 
I the OUTER word and multiplied the result time fay 10, The 
figures below may not be extremely accurate. The test system 
is a Gateway 2000 486 running at 66 MHz with 24 Mb of 
RAM. The software environment includes Microsoft Windows 
95 and Internet Explorer 3.0, The word outer was timed for 
two native code Forth systems for Windows; LMl WinForth 
(16-bit Windows 3.1 code) and the public domain 
WiniZForth, as well as the Java Forth systems Misty Beach 

■ Forth and jeForth: 





Stack test 


Variable test 


Forth System 


(seconds) 


(seconds) 


LMl WinForth TO! (optimized) 


8 


12 


LMl WinForth 1.01 


70 


107 


Win32Forth 3.5 build 41 


65 


3 28 


Misty Beach Forth V0.30 






on IE 3.0 (Java) 


199 


350 


jeForth V0.94 






on 'E 3,0 (Java) 


1076 


1891 



s you can see, jeForth is about five times slower than 
Misty Beach Forth on the same hardware, and much slower 
I than either native code Forth systems for Windows. My re- 
sults for Misty Beach Forth were not as good as those ob- 
I tained by its author, who tested on a Pentium PC and Win- 
I dows NT 4.0, Offsetting the slower execution speed of jeForth 
j somewhat is its small size. The two Java bytecode .class files i 

for jerorth total about 36 Kb, which is much smaller than, 
j Misty Beach Forth and quicker to download. For a demon- 
! stration and teaching tool, fast downloads are probably ntore 
i important than execution speed. Any serious student of Forth 
will move on to better performing native implementations, 
unless doing web-oiiented development. 

Development Notes 

1 started with the Sun Java Development Kit QDK 1,0) to 
compile Java code, and test it. The very first versions of jeForth 
ran as a command-line text application and could not run in 
a browser. Once I based the code on the Applet class, 1 started 
using the Sun Applet Viewer and Netscape Navigator version 



3.0 for testing. Soon, 1 felt limited by the constraints of the 
JDK command-line compiler, so 1 switched to Microsoft Vi- 
sual J++ 1.0. This package compiled Java quickly and had the 
nice graphical debugger with which 1 was familiar from Vi- 
sual C++, However, each time 1 ran the applet, J++ launched 
Microsoft Internet Explorer 2,x, which took a very long time 
to come up on my 486, perhaps one or two minutes! 1 specu- 
late that IE 2.x was waiting for some TCP/IP timeout before 
opening the local HTML and Java .CLASS files. How frustrat- 
ing! Later, Microsoft Visual ]+■*■ 1.1 came out, which works 
with IE 3,0 and opens the browser and applet in a reasonable 
amount of time, although still very slow by Forth-interac- 
tion standards. 

Testing a Forth that contains a lot of high-level defini- 
tions can be a challenge. You can use the debugging tools 
provided by your assembler or compiler, but those tools will 
not understand the Forth data stnictures and run-time envi- 
ronment very well. And if the Forth outer (command-line) 
interpreter is not working, interaction tends to be quite lim- 
ited. During this phase, I developed test scaffolding to place 
different strings of jeForth tokens in memory and execute 
them. Later 1 added several debugging features to the Java 
ForthMachine class and to eForth itself. Initially these rou- 
tines sent output to the standard output stream. Only recently 
did 1 re-engineer them to output text into the applet window 
and add the interactive trace and step commands. 

I have used the following books to learn about Java: 
The Java Programming Language, by Ken Arnold and James 
Gosling. 

Java in a Nutshell, by David Flanagan, 

The following books from Offete Enterprises describe 
eForth: 

eForth Implementation Guide, Dr. C.H. Ting 
eForth and Zen, Dr, C,H. Ting 

Availability 

The web pages for jeForth beta versions up to 0.95 have 
been hosted by Jack Woehr, the Author of Forth: The hJew 
Model, at his Rocky Cost Free Board: i 
http://www, well.com/user/jax/rcfb/forth ,html#jeForth ) 

Starhng with version 1.00, jeForth can be found at the j 
following site: 

h ttp ://ww w.amsyst ech .com/nil osh/ 

The jeForth applet and source code are copyrighted 
freeware released under a license for non-commercial users 
such as educational Institutions and students, non-proht or- 
ganizations such as the Forth Interest Group and government 
agencies, and individual users. If you fall into such a category, 
you may copy and use the jeForth applet on any web server 
you own or rent hosting services from. You may also copy, 
use, or modify the jeForth source code for any non-commer- 
cial purpose as long as you retain the copyright information 
and a description of your modifications. The jeForth applet 
and source code are offered without any warrat\ty and with- 
out any specific promise of support. Potential commercial 
users should contact me for availability and pricing of a fu- 
ture Java-based Forth. Please see the web site for the full terms 

(Continues on page 'iS) 
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Forth in Control:; 

Temperature IVIoiiitorlng 



Temperature is one parameter of our environment which 
has an affect on all living things. We turn up the furnace 
when we are cold, and switch on the air conditioner in the 
heat of the summer. Fanners with fruit orchards and cran- 
Lierry fields watch out for early frost conditions which can 
decrease their crop yield. Factories cJosely monitor their pro- 
cess control to ensure the quality of their product is consis- 
tent. Machines even perform differently through a range of 
temperatures. The ignition timing and fuel delivery of your 
car changes from a cold start to a warmed up engine. Many 
opportunities arise where there is a need to measure tempera- 
ture accurately and then perform certain tasks accordingly. 
I In this article, we will cover how to interface a digital ther- 
mometer sensor chip to your computer's parallel port. The 
: device we are using is Dallas Semiconductor's DS162t), which 
contains the sensor itself and a three-wire serial interface in- 
side an eight-pin DIP package. The sensor measures tempera- 
tures from -55 degrees to +125 degrees Celsius in .5 degree 
increments. This works out to -67 degrees to +257 degrees 
I Fahrenheit in .9 degree increments. Temperature is read from 
I the synchronous serial interface as a nine-bit value. From 
j to 70 degrees Celsius, thermometer error is ±.5 degrees in- 
■ creasing to ±2 degrees at the temperature limit extremes. The 
sensor is factory set and requires no calibration. The chip has 
two modes of operation: 

1. Three-wire thermometer mode, which communicates 
ambient temperature data to your computer, 

2. Standalone thermostat mode, which needs no computer 
interface. 

I 

Upper and lower temperature values are programmed into 
the chip's TH and TL nonvolatile EEPROM register memory. 
The chip has three pins dedicated to alarm outputs, which 
are active in both modes. T-HIGH goes high when the tem- 
perature is greater than the value stored in the TH register. T- 
LOW goes high when the temperature is less than the value 
in the TL register. The T-COM pin goes high when the tem- 
perature is greater than TH and stays high until the tempera- 
ture falls below that of TL. In this way, any amount of hyster- 
i fi)s can be obtained. 

; When designing a threshold detector circuit, it is good 
i practice to incorporate hysteresis into the trigger point. If you 
don't, as the temperature slowly approaches the single trig- 
ger point, and passes through, it will flutter just below and 
just above, causing output "chatter." 

To solve this chatter problem, we make two trigger thresh- 
olds, T-HlGH which will turn on the output, and T-LOW which 
: will turn off the output. The difference between these two 
thresholds is the hysteresis. As an example, when you set your 
furnace control to 70 degrees, the furnace will run until it 
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hits 72 degrees and will stay off until the temperature drops 
to 68 degrees. This keeps your furnace from cycling off and 
on around 70 degrees. 

We will use Forth (F-PC) to control the interface hardware 
through the parallel printer port. [Listing begins on page 
17.] All commands to and from the DS1620 sensor will be 
buffered by the 74LS38 chip. This interface will have the ca- 
pability to program all EEPROM memory locations in the 
DS1620 chip for custom configurations and standalone op- 
eration. 

Pin #1 of the chip is the bi-directional data line (DQj, Data 
is read to and from the chip via this pin. Data over the inter- 
face is communicated LSB first. 

Pin #2 is the clock input to which the data is synchro- 
nized. The clock transitions are used to determine when to 
read or send data, A clock cycle is a sequence of a falling edge 
followed by a rising edge. The data line goes to a high imped- 
ance state while the clock is high. 

Pin #3 is the Reset input line. All data transfers are initi- 
ated by driving the RST line high. Driving the line low termi- 
nates communications by forcing the data line into a high 
impedance mode. 

Power (5 volts) is apphed to pin #8 (Vcc) and Gnd to pin #4. 

Pin #5 is the High/Low combination trigger output. It goes 
high when the temperature exceeds TH, and resets to low 
when temperature falls below TL, 

Pin #6 is the Low temperature trigger output. It goes high 
when the temperature falls below TL. 

Pin #7 is the High temperature trigger output. It goes high 
when the temperature exceeds TH. 

Data sheets for the DS1620 can be downloaded from Dal- 
las Semiconductor's web site (http://wvm.dalsemi,com) 

Three-Wire Thermometer Mode 

Build up the circuit as per schematic [page 15]. A nine- 
volt battery or an AC power adapter can be used for the power 
supply. Use an IC socket to hold the DS1620 chip, so it can 
be easily removed after programming. Because this is a syn- 
chronous serial link, we must remember to keep the cable 
between the computer and circuit board as short as possible. 
We are using the edges of the clock line as a sync signal for 
transmitting and receiving data. Extra long lines pick up noise, 
introduce crosstalk between wires, and increase line capaci- 
tance, which can cause data to be corrupted. 

Plug the DB2S connector into your parallel printer port 
and power up the board. Run F-PC and, at the "ok" prompt, 
type FLOAD DS1620 . SEQ. If no errors are encountered, type 
SHOW, TEMP. A simple display will appear which will continu- 
ously show ambient temperature. To verify correct operation 
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place your finger on the DS1620 chip, which should cause 
the tempecature reading to slowly increase. (A hair dryer will 
cause a faster response.) Place a cold object on the chip to see 
the temperature reading drop. All temperature readings should 
change in .5 degree increments. Press any key to exit. 

The DS1620 is continuously performing temperature con- 
versions and storing the results in a holding register. We read 
the contents of the register to update our temperature dis- 
play. To access the register we send a "Read Temperature" 
command byte (AA HexJ over the serial link. The next six- 
teen clock cycles will output the contents of this register. The 
temperature is coded in a two-byte format. The most-signifi- 

! cant byte holds the sign bit, and the least-significant byte 
holds the value of the actual temperature. If the sign bit is 
high, the temperature is negative and the actual temperature 
value is in two's complement form. If the sign bit is low, the 
temperature is positive and the actual temperature value is 
contained in the least-significant byte. 

i Temperature data can be logged and stored in a file for 
future reference, or certain tasks can selected depending on 
temperature values. [Table One] 

Standalone Mode 

in the standalone mode, the DS1620 continuously does 
I temperature conversions and compares them to the pre-pro- 
grammed threshold values. In this configuration, the chip 
can monitor temperatures on its own and drive control re- 
lays or alatm circuits directly, A computer could poll these 
outputs, if all you need is a temperature limit detector. Even 
if your computer misses an alarm output, the D51620 has a 
set of Temeratures High/Low flags which remember if a tem- 
perature threshold has ever been exceeded. The flags will re- 
main high until reset by writing a zero into this location or 
by removing power from the device. This feature provides a 
method of determining whether the DS1620 has ever been 
subjected to temperatures above threshold limits. These two 
flags are mapped as bits 5 and 6 in the configuration register. 
[Table Two] 

To configure the chip for standalone operation, we must 
first program the T-low and T-high values into the chip, and 
then enable the standalone mode. 

To program the Threshold registers, we need a sign byte 
and a temperature value byte on the stack, then type 
j WRITE ,TH or WRITE ,TL. As an example, if we wanted topro- 
I gram T-high with +25,5 degrees, the sign byte would be 00 
and the temp value byte would be (25,5 * 2) = 51 (33 Hex), 

00 51 WRITE, TH 

If we wanted to program T-low with -25,0 degrees, the 
sign byte would be 01, and the temp value byte would be (2'5 
* 2) = SO, then invert and add 1 — > 206 (CE Hex). 

01 206 WRITE. TL 

i 

To verify your values, type show , param to display the thresh- 
old temperatures: 

T-HIGH > 25.5 

T-LOW > -25,0 

; Program T-low and T-high a few degrees above and below 



Table One. DS1 620 nine-bit temp/data 



Temp Binary Value Decimal Hex 



Table Two. Configuration register map 



Bit 


Name 


i'unction 





1 Shot 


= continuous conversions 






1 = 1-shot conversion 


1 


CPU 


= standalone mode 






1 - three-wire mode 


2 


X 


Don't care 


3 


X 


Don't care 


4 


X 


Don't care 


5 


TL Flag 


= Temp > TL 






1 - Temp < TL 


6 


TH Flag 


= Temp < TH 






1 = Temp > TH 


7 


Done 


= conversion in progress 






1 = conversion done 



room temperature. Force the temperature trigger points by 
heating and cooling the chip, and watch the output LEDs 
change accordingly. Type SHOW, param to see the tempera- 
ture limit flags. They both (bit 5 and 6 ) should be high, indi- 
cating that the values were exceeded. 

CONFIG > 01100000 

To enable the standalone mode, type STAND . alone. The 
chip is now ready to be embedded into your custom tem- 
perature control application using the standalone circuit as 
per schematic [page 16]. 



+125 


00000000 


11111010 


00 250 


00 FA 


+25 


00000000 


00110010 


00 50 


00 32 


+0.5 


00000000 


00000001 


00 01 


00 01 





00000000 


00000000 


00 00 


00 00 


-0,5 


00000001 


11111111 


01 255 


01 FF 


-25 


00000001 


11001110 


01 206 


01 CE 


-55 


00000001 


10010010 


01 146 


01 92 



Sign byte* Temp byte 

• Only the low bit of the sign byte is used, 
the Qthet seven bits ate leroi. 
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Three-Wire Mode 
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Standalone Mode 
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{eForth for Java, from page 1 2) 
of the license. 

Please watch the Usenet newsgroup comp.lang.forth for 
future announcements on jeForth and any FIG-sponsdred 
projects, 1 am available via e-mail at mlosh@tir.com for ques- 
tions or comments. 

Future Directions 
(but not a conclusion) 

The current version of jeForth demonstrates that Java pro- 
vides a good platform for demonstrating Forth on the Internet. 
I hope that the Forth community will recognize the opportu- 
nity to promote Fortli through Java. Furthermore, I hope the 
Forth Interest Group will organize a project to develop a com- 



pelling web site with a great tutorial for the jeForth applet, 1 
am willing to guide such a project, but 1 would like the ideas 
and the e.xpertise of others. Please contribute your time and 
talent to this endeavor! 

Michael A, Losh has been a Forth enthusiast since stumbling upon 
Leo Brodie's books in a physics laboratory in 1990, Currently he is a 
Microsoft CertifiedTrainer for Windows programming with the Win32 
API, Visual C++, and MFC, and is the director of software consulting 
at American Systems Technology, Inc. (www.amsystech.com), a 
Microsoft Solutions Provider and Microsoft Authorized Technical 
Education Center near Detroit, Michigan. 
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Listing One, Forth in Control; Temperature Monitoring 



\ DS1620.SEQ Ken Merk May/9B 

\ F-PC 

\ Forth Code to Interface DS1620 Thermometer 



DECIMAL 



$0040 $0008 gL 
0= #IF 

CLS 



\ Look for active LPTl port 
\ If no port found then abort 



23 8 AT ,( Parallel printer port not found.) 
CLOSE QUIT 



#ENDIF 

$0040 S0008 @L COWSTANT #PORT 



VALUE TEMP 

VALUE MASK 

VALUE MEG 

1 CONSTANT CLK 
1 CONSTANT R3T 

A CONSTANT DIRECTION 

S CONSTANT DQ 

code bset { b #port — ) 

pop dx 
pop tax 
in ax, dx 
or al, bx 
out dx, al 
next 

end-code 



S Find port addr for printer card 
\ assign to constant tPORT 

\ Temp data storage 

S Mask value 

\ Neg flag 

\ assign weighting 

\ to CLK and EST 

\ Direction bit 

\ Data I/O 

\ will SET each bit in #port that matches 
\ every high bit in byte b. 



code breset 
pop dx 
pop bx 
not bx 
in ax, 
and al, 
out dx, 
next 

end-code 



dx 
bx 
al 



( b #port -- ) 



\ -will RESET each bit in #port that matches 
\ every high bit in byte b. 



HIGH 

LOW 

WRITE 



[ b 
{ b 
( b 



DQ.HIGH ( 
DQ . LOW { 



-- ) 



) 



#PORT bset 
#PORT breset 
#PORT PC! 



DQ HIGH 
DQ LOW 



DQ.HIGH? ( — f) 

08 tPORT 1+ PCS AND 0<> 



\ turn ON output 

\ turn OFF output 

\ write byte to data port 



\ write 1 -- 
S write -- 



DQ bit 
DQ bit 



\ read DQ bit --high? 
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: PORT.INIT ( — ) 05 WRITE ; \ CLK=1 RST=0 DIR=1 

; DELAY { — ) 1 MS ; \ create 1 MS delay 



S To check the accuracy of the MS time delay which can vary with computer 
\ speed, type TIMER 2000 MS and check that the time delay Is 2 seconds. 
\ Adjust by changing the variable FUDGE accordingly. 



PULSE. CLK ( -- ) 

CLK LOW \ CLK=0 

DELAY \ 1 MS delay 

CLK HIGH \ CLK=1 

DELAY ; \ 1 MS delay 



: INVERT. BYTE ( bl -- b2 ) $FF XOR ; 

: INVERT, WORD { ul -- u2) $FFFF XOR ; 



-. IrtRlTE . BVTE ( b -- ) 

1 =: MASK 
IMVERT.BYTE 

DIRECTION LOW S write direction 

8 DO dup MASK AND 0= \ send eight bits 
IF DQ.LOW PULSE. CLK 

ELSE DQ.HIGH PULSE. CLK 

THEN MASK 2* !> MASK \ shift left 
LOOP drop ; 



: READ. BYTE ( -- b) 

=: TEMP 

DIRECTION HIGH \ read direction 

8 DO \ read eight bits 

CLK LOW DELAY 

DQ.HIGH? 

CLK HIGH DELAY 

TEMP 21 \> TEMP \ shift right 

If TEMP 128 OR !> TEMP THEN 
LOOP 
TEMP 

INVERT, BYTE ; 



READ. WORD ( -- u) 

TEMP 
DIRECTION HIGH 
16 DO 

CLK LOW DELAY 
DQ.HIGH? 
CLK HIGH DELAY 
TEMP 02/ !> TEMP 
IF TEMP 3276S OR 
LOOP 
TEMP 

INVERT. WORD ; 



\ read direction 
\ read sixteen bits 



\ shift right 



!> TEMP THEN 



: WRITE. TH { bl b2 — ) \ write T-High reg 

RST HIGH 



T8 



Forth Dimensions XX. 1 



FORTH INTEREST GROUP 

Mail order forM L 

HOW TO ORDER: Complete form on backpage and send with payment to the Forth Interest Group, All items 
have one price. Enter price on order form and calculate shipping & handling based on location and total. 



FORTH DIMENSIONS BACK VOLUMES 



A volume consists of the six Issues from the volume year 0»/l ay-April). 

Volume 1 Forth DimBnsions (1 979-80) 1 01 - $35 

Introduction to FIG, threaded code, TO variables. fig-Forth. 

Volume 6 Forth Dimansions (1 984-85) 1 06 - $35 

Interactive editors, anonymousvariables, list handling, integer 
solutions, control structures, debugging tecnniques, 
recursion, semaphores, simple I/O words, CJuicksort, nigh- 
level packet communications, China FORML. 

Volume 7 Forth Dimensions (1 985-86) 1 07 - $35 

Generic sort. Forth spreadsheet, control stnjctures, pseu do- 
interrupts, numberediting. Atari Forth, pretty printing, code 
modules, universal stack word, polynomial evaluation, F83 
strings. 



Volume 8 Forth Dimensions (1 986-87) 



108- $35 



interrupt- driven serial input, database functions, Tl 99/4A, 
XMODEM, on-line documentation, dual CPAs, random 
numbers, arrays, filequery, Batcher's sort, screenless Forth, 
classesin Forth, Bresenham line-drawing algorithm, unsigned 
division, DOS file I/O. 



Volume 9 Forth Dimensions (1 987-88) 



109 -$35 



Fractal landscapes, stack error checking, perpetual date 
routines, headless compiler, execution security. ANS-Forth 
meeting, computer-aided instruction, local variables, 
transcendental functions, education, relocatable Forth for 
68000. 



Volume 10 Forth Dimensions (1988-89) 



110 -$35 



dBase file access, string handling, local variables, data 
structures, object-oriented Forth, linear automata, steuid- 
alone applications, 8250 drivers, serial data compression. 



Volume 11 Forth Dimsmions (1989-90) 



111 -$35 



Local variables, graphic filling algorithms. 80286 extended 
memory, expert systems, quaternion rotation calculation, 
multiprocessor Forth, double-entry bookkeeping, binary 
table search, phase-angle differential anatyzer, sort contest 



Volume 1 2 Forth Dimensions (1 990-91 ) 



112 -$35 



Hoored division, stack variables, embedded control, Atari 
Forth, optimizing compiler, dynamic memory allocation, 
smart RAM, extended -precision math, interrupt handling, 
neural nets, Soviet Forth, arrays, metacompilation. 



Volume 13 Fort/) Dimensions (1991-92) 


113 


-$35 


Volume 14 Forth Dimensions (1992-93) 


114 


-$35 


Volume 15 Forth Dimensions (1993-94) 


115 


-$35 


Volume 16 Forth Dimensions (1994-95) 


116 


-$35 


Volume 17 Forth Dimensions (1995-96) 


117 


-$35 


Volume 1 8 Forth Dimensions (1 996-97) 


118 


-$35 



FORML CONFERENCE PROCEEDINGS 



FORML [Forth Modification Laboratory) is an educational forum for 
sharing and discussing new or unproven proposals intended to benefit 
Forth, and isfordiscussion of technical aspects of applicationsin Forth. 
Proceedings are acompllation of the papers and abstracts presented at 
the annual conference. FORML is part of the Forth Interest Group. 

1981 FORML PROCEEDINGS 311 -$45 

CODE- less Forth machine, quadruple-precision arithmetic, 
overlays, executable voc^ulary stack, data typing in Forth, 
vectored data structures, using Forth in a classroom, pyramid 
files, BASIC, LOGO, automatic cueing language for 
multimedia, NEXOS - a ROM-based multitasking operating 
system. 655 pp. 

1 982 FORML PROCEEDINGS 31 2 - $30 

Rockwell Forth processor, virtual execution, 32-bit Forth, 
ONLY for vocaiiiularies, non-1 MMEDIATE looping words, 
number-input vifordset, I/O vectoring, recursive data 
structures, programmable- logic compiler. 295 pp. 

1983 FORML PROCEEDINGS 313 - $30 

Non-Von Neuman machines. Forth instnjction set, Chinese 
Forth , F83 , compiler &interpre1;er co-routines, !oq 8. esiponential 
function, rational arithmetic, transcendental functions in 
variable-precision Forth, portable file-system interface. Forth 
coding conventions, expert systems, 352 pp. 

1984 FORML PROCEEDINGS 314 - $30 

Forth expert systems, consequent-reasoning inference engine, 
Zen floating point, portable graphics wordset, 32-bit Forth, 
HP71BForth, NEON -object-oriented programming, decom- 
piler design, arrays and stack variables. 378 pp. 

1 986 FORML PROCEEDINGS 31 6 - $30 

Threading techniques, Prolog, VLSI Forth microprocessor, 
natural -language interface, expert system shell. Inference 
engine, multiple-inheritance system, automatic programming 
environment. 323 pp. 

1 988 FORML PROCEEDINGS 31 8 - $40 

Includes 1988 Australian FORML. Human interfaces, simple 
robotics kernel, MODUL Forth, parallel processing, 
programmable controllers, Prolog, simulations, language 
topics, hardware, Wt\'s viforkings & Ting's philosophy. Forth 
hardware applications, ANS Forth session, future of Forth in 
Al applications. 310 pp. 

1989 FORML PROCEEDINGS 319 - $40 

Includes papers from W euroFORML Pascal to Forth, 
extensible optimizer for compiling, 30 measurement with 
object-oriented Forth, ORG polynomials, F-PC, Harris C 
cross-compiler, modular approach to robotic control, RTX 
recompilerfor on-line maintenance, modules, trainable neural 
nets. 433 pp. 

1 992 FORML PROCEEDINGS 322 - $40 

Object-oriented Forth based on classes rather than 
prototypes, colorvisionsizing processor, virtual file systems, 
transparent target development, signal- processing pattern 
classification, optimization in low-level Forth, local variables, 
embedded Forth, auto display of digital images, graphics 
package for F-PC, B-tree in Forth 200 pp. 

1 993 FORML PROCEEDINGS 323 - $45 

Includes papers from '92 euroForth and '93 euroForih 
Conferences. Forth in 32- bit protected mode, HDTV format 
converter, graphing functions, MIPS eForth, umbilical 
compilation, portable Forth engine, formal specifications of 
Forth, writing better Forth, Holon - a new way of Forth, 
FOSM-a Forth string matcher, Logoin Forth, programming 
productivity. 509 pp. 

1994-1995 FORML PROCEEDINGS (in one volume!) 325 -$50 



Fast service by fax: 408.373.2845 



BOOKS ABOUT FORTH 



ALL ABOUT FORTH, 3rd ed., June 1 990, Glen B. Haydon 201 - $90 

Annotated glossary of most Forth words in common use, 
including Forth-79, Forth-83, F-PC, M\/P-Forth, Implementa- 
tion examples in high-level Forth and/or 8086/88 assembler. 
Useful commentary given for each entry, 504 pp. 



eFORTH IMPLEMENTATION GUIDE, C.H. Ting 



21 5 -$25 



eForth is a Forth model designed to be portable to many of 
the newer, more powerful processors available now and 
becoming available in the near future. 54 pp. (w/disk) 

Embedded Controller FORTH, 8051 , William H. Payne 216 - $76 

Describes the imolementation of an 8051 version of Forth. 
Wore than half or this book is composed of source listings 
(w/dtsks C050) 511 pp. 



F83 SOURCE, Henry Laxen & Michael Perry 



21 7 -$20 



A complete listing of F83, including source and shadov^r 
screens. Includes introduction on getting started. 208 pp. 



F-PC USERS MANUAL {2nd ed., V3,5) 



350 - $20 



Users manual to the public-doniain Forth system optimized 
for IBM PC/XT/AT computers, A fat, fast system with many 
tools. 143 pp. 

F-PC TECHNICAL REFERENCE MANUAL 351 - $30 

A must if you need to know F-PC's inner workings. 269 pp. 



THE FIRST COURSE, C.H. Ting 



223 - $25 



This tutorial goal exposes you to the minimum set of Forth 
instructions you need to use Forth to solve practical problems 
in the shortest possible time. "...This tutorial was developed 
to complement The Forth Course which skims too fast on 
the elementary Forth instructions and dives too quickly in the 
advanced topics in an upper-level college microcomputer 
laborator/ A running F-PC Forth system w/ould be very 
useful. 44 pp. 



THE FORTH COURSE, Richard E. Haskell 



225 - $25 



This set of 1 1 lessons is designed to make It easy for you to 
learn Forth. The material was developed over several years 
of teaching Forth as part of a senior/graduate course in the 
design of embedded software computer systems at Oakland 
University in Rochester, Michigan, 156 pp. (w/disk) 



FORTH NOTEBOOK, Dr. C.H. Ting 



232 - $25 



Good exwnples and applications - a great learning aid. 
polyFORTH is the dialect used, but some conversion advice 
IS included. Code is well documented. 286 pp. 



FORTH NOTEBOOK II, Dr. C.H, Ting 



232a -$25 



Collection of research papers on various topics, such as 
image processing, parallel processing, and miscellaneous 
applications. 23/ pp. 



FORTH PROGRAMMERS HANDBOOK, 
Edward K. Conklin and Elizabeth D, Rather 



260 - $57 



This reference book documents all At\lS Forth wordsets 
(with details of more than 250 words), and describes the 
Forth virtual machine, implementation strategies, the impact 
of multitasking on program design, Forth assemblers, and 
coding style recommendations. 



EXCITING 
NEW TITLE! 



INSIDE F-83, Dr. C.H. Ting 

Invaluable for those using F-83, 226 pp. 
OBJECT-ORIENTED FORTH, Dick Fountain 



235 - $25 



242 - $37 



implementation of data structures. First book to make 
object-oriented programming available to users of even very 
small home computers. 118pp. 

STARTING FORTH (2nd ed.) Umited Reprint, Leo Brodie 245a - $50 



in this edition of Siarting Forth— the most popular and 
complete introduction to Forth — syntax has been expanded 
to include the Forth-83 Standard. (The original printing is 
now out of stock, but we are makmg available a special, 
limited-edition reprint with all the original content.) 346 pp. 



LIMITED 
TIME] 



THINKING FORTH, Leo Brodie 



265 - $35 



"We're Sure You Wanted To Know..." 



Forth Dimensions, Article Reference 151 

Anindex of Forth articles, by keyword, fromFo/thDimensfO/is 
Volumes 1-15 (197&-94). 



■$4 



Back by popular demand! To program intelligently, you 
must first think intelligently, and that's where Thinking Forth 
comes in. The bestselling author of Starting Forth is back 
again with the first guide to using Forth for applications. This 
book captures the philosophy of the language, showing 
users how to write more readable, better maintainable 
applications. Both beginning and experienced programmers 
will qain a better understanding and mastery of topics like 
Fortn style and conventions, decomposition, factovinQ, 
handling data, simplifying control structures. And, to give 
you an idea of howlhese concepts can be applied. Thinking 
Forth contains revealing interviews with users and with 
Forth's creator Charles iT. Woore, Reprint of original, 272pp, 

WRITE YOUR OWN PROGRAMMING LANGUAGE USING C4+, 
Norman Smith 270 - $1 6 

This book is about an application language. More specifically, 
it is about how to vifrite your own custom application 
language. The book contains the tools necess£U7 to begin 
the process and a complete sample language 
implementation, (Guess what language]) includes disk with 
complete source. 108 pp. 



WRITING FCODE PROGRAMS 



252 - $52 



This manual is for designers of SBus interface cards and 
other devices that use the FCode interface language. It 
assumes familiarity with SBus card design requirements 
and Forth programming. Discusses SBus development for 
OpenBoot 1,0 and 2.0 systems, 414 pp. 



FORML, Article Relerence 1 52 - $4 

An index of Forth articles by keyword, author, and date from 
the FORML Conference Proceedings (1 980-92). 



LEVELS OF MEMBERSHIP 

Your standard membership in the Forth Interest Group brings 
Forth Dimensions and participation in FIG's activities — like 
members-only sections of our web site, discounts, special 
interest groups, and more. But we hope you will consider 
joining the growing number of members who choose to show 
their increased support of FIG's mission and of Forth itself. 

Ask about our special incentives for corporate and library 
members, or become an individual benefactor! 

Company/Corporate - $125 
Library -$125 
Benefactor - $1 25 

Standard - $45 (add $1 5 for non-US delivery) 

Forth Interest Group 

See contact info on mail-order form, or send C'mail to: 
office@forth.org 



Fast service by fax: 408.373.2845 



DISK LIBRARY 

Contributions from the Forth Community 



The "Contributions from the Forth Communis' disk library contains 
author-submitted donations, generally including source, for a variety 
of computers & disk formats. Each file is designated by the author as 
public domain, shareware, or use with some restrictions. This library 
does not contain "For Sale" applications. To submit your own contri- 
butions, send them to the FIG Publications Committee. 



FLOAT4th.BLKV1.4 Robert L. Smith 

Software floating-point forfig-, poly-, 79-Std., 83-Std 
Forths, IEEE snort 32-blt, four standard functions 
square root and log. 

IBM, 190Kb, Fes 



C001 - $8 



Games in Forth 

Misc. games. Go, TETRA, Life, 
* IBM, 760Kb 



Source. 



C002 - $6 



A Forth Spreadsheet, Craig Llndley C003 - $6 

This model spreadsheet first appeared in Forth 
Dimensions V[l/l ,2. Those issues contain docs & source.' 
^ IBM, 100Kb 

Automatic Structure Charts, Kim Harris C004 - $8 

Toolsforanalysisof large Forth programs, first presented 
at FORML conference. Full source; docs included in 
1985 FORML Proceedings. 
** IBM, 114Kb 

A Simple Inference Engine, Martin Tracy COOS - $8 

Based on inference engine in Winston & Horn's book 
on LISP, takes you from pattern variables to complete 
unification algonthm, with running commentary on Forth 
philosophy & style. Incl. source, 
IBM, 162 Kb 

The Math Box, Nathaniel Grossman C006 - $1 

Routines by foremost math author in Forth. Extended 
double-precision arithmetic, complete 32-bit fixed-point 
math & auto-ranging text. Incl, graphics. Utilities for 
rapid polynomial evaluation, continued fractions & Monte 
Carlo factorization. Incl. source & docs. 
** IBM, 118Kb 

AstroForth & AstroOKO Demos, I.R. Agumirsian C007 - $6 

AstroForth is the 83-Standard Russian version of Forth. 
Incl. window interface, full -screen editor, dynamic 
assembler & a great demo. AstroOKO, an 
astronavigation system in AstroForth, calculates sl^ 
position of several objects from different earth positions. 
Demos only. 

* IBM, 700 Kb 

Forth List Handler, Martin Tracy C008 - $8 

List primitives extend Forth to provide a flexible, high- 
speed environment for Al. Incl. ELISA and Winston & 
Horn's micro-USP as examples, Incl. source & docs. 
** IBM, 170 Kb 

8051 Embedded Forth, William Payne C050~$20 
8051 ROMmable Forth operating system. 8086-to- 
6051 target compiler. Incl. source. Docs are in the book 
EmbeddedControllerForthforthe8051 Family. Included 
with item #216 

IBMHD, 4.3 Mb 



68HC1 1 Collection 



Collection of Forths, tools and floating-point routines 
fortheeSHCII controller. 
IBM HD, 2.5 Mb 



C060-$16, 



F-PC TEACH V3.5, Lessons 0-7 Jack Brown C201 - $8 

Forth classroom on disk. First seven lessons on learning 
Forth, from Jack Brown of B.C. Institute of Technology. 
IBMHD, F-PC, 790 Kb 

VP-Planner Float for F-PC, VI .01 , Jack Brown C202 - $8 

Software floating-point engine behind the VP-Planner 
spreadsheet, 80-bit (temporary-real) routines with transcen- 
dental functions, number I/O support, vectors to support 
numeric co-processor overlay & user NAN checking, 
IBM, F-PC, 350 Kb 

F-PC Graphics V4.6, Mark Smiley C203 - $1 

The latest versions of newgraphics routines, including CGA, 
EGA, and VGA support, with numerous improvements over 
earlier versions created or supported by Mark Smiley. 
** iBMHD, F-PC, 605 Kb 

PocketForth V6.4, Chris Heilman C300 - $12 

Smallest complete Forth for the Mac, Access to all Mac 
functions, events, files, graphics, floating point, macros, 
create standalone applications and DAs. Based on fig & 
Starting Forth. Incl. source and manual, 

T*r MAC, 640 Kb, System 7,01 Compatible, 

Kevo V0.9b6, Antero Tatvalsaari C360-$10 
Complete Forth-like object Forth for the Mac. Object- 
Prototype access to ail Macfunctions, files, graphics, floating 
point, macros, create standalone applications. Kernel source 
included, extensive demo files, manual. 
i^-k-k MAC, 650 Kb, System 7.01 Compatible. 

Yerkes Forth V3.67 C350 - $20 

Complete object-oriented Forth for the Mac. Object access 
to all Mac functions, files, graphics, floating point, macros, 
create standalone applications. Incl. source, tutorial, 
assembler & manual. 

MAC, 2.4Mb, System 7.1 Compatible. 

Pygmy VI .4, Frank Sergeant C500 - $20 

A lean, fast Forth with full source code. Incl. full-screen 
editor, assembler and metacompiler. Up to 1 5 files open at 
a time. 

IBM, 320 Kb 

KForth, Guy Kelly C600 - $20 

A full Forth system with windows, mouse, drawing and 
modem packages. Incl. source & docs, 
IBM, 83, 2.5 Mb 

Mops V2.6, Michael More C71 - $20 

Close cousin to Yerkes and Neon, Very fast, compiles 
subroutine-ttireaded & native code. Object oriented. Uses 
F-P co-processor if present. Full access to Mac toolbox & 
system. Supports System 7 {e.g., AppleEvents). Incl. 
assembler, manual & source. 
★* MAC, 3 Mb, System 7.1 Compatible 

BBL & Abundance, Roedy Green C800 - $30 

BBL public -domain, 32-bit Forth with extensive support of 
DOS, meticulously optimized for execution speed. 
Abundance is a public-domain database language written in 
BBL. incl. source & docs. 

IBM HD, 13.8 Mb, hard disk required 



F83 V2.01 , Mike Perry & Henry Laxen 



The newest version, ported to a variety of machines. 
Editor, assembler, decompiler, metacompiler. Source 
and shadow screens. Manual available separately (items 
21 7 & 235), Base for other F83 applications. 
* IBM, 83, 490 Kb 



01 00 -$20 



F-PC V3.6 & TCOM 2.5, Tom Zimmer 



A full Forth system with pull-down menus, sequential 
files, editor, forward assembler, metacompiler, floating 
poinL Complete source and help files. Manual for V3. 5 
available separately (items 350 & 351 ). Base for other 
F-PC applications. 

* IBM HD, 83, 3.5Mb 



C200-$30 



Ve rs 1 u 11— IE^epl(£[LC;e none lilt F'ciilicy 

Return the old version with the FIG labels 
and get a new version replacement for 1/2 
the current version price. 



*-Slarting tti^ - lntenined]at« **^-Advanced 



Fast service by fax: 408.373.2345 



MORE ON FORTH ENGINES 



Volume 10 (January 1989) 810-$15 
RTXreprinis from 1988 Rochester Forth canf ere nee, object- 
oriented cmForth, lesser Forth engines, 87 pp. 

Volume 1 1 [July 1 989) 81 1 - $1 5 

FiTKsupp\ement\o Footsteps in an Empty Valley, SC32,32- 
blt Forth engine, RTX interrupts utility. 93 pp. 

Volume 1 2 [/^ril 1 990) 812 - $1 5 

StiBoom Chip architecture and instructions, neural 
computing module NCW3232, pIgForth. binary radix sort on 
80286, 68010, and RTX20Q0. 87 pp. 

Volume 1 3 (October 1990) 81 3 - $1 5 

PALs of the RTX2000 Minl-BEE, EBForih, AZForth, RTX- 
2101, 8086eFDrtii, 6051 eForth. 107pp. 

, Volume14 814-$15 

RTX Pocket-ScoM, eForth for muP20, ShBoom, eForth for 
j CP;w&ZS0,XMODEi\^ for eForth. 116pp. 

VolumelS 815-$15 

Moore: new CAD system for chip design, a portrait of the 
P20; Rible: QS1 Forth processor, QS2, RISCing it all; P20 
eForth software simui at or/debugger, 94 pp. 

Volumeie 816-$15 

OK-CADSystem.MuP20, ePorthsystem words, 386 eForth, 
80386 protected mode operation, FRP 1600 - 16-Bit real 
time processor. 104 pp. 



Volume 17 817 - 

I P21 chip and specifications; Pici 7C42; eForth for 68HC1 1 , 
8051, Transputer T28pp. 



$15 



Volume 18 

l^uP21 - programming, demos, eForth 114 pp. 



818 -$20 



Volume 19 81 9 -$20 

More MliP21 - programming, demos, eForth 135 pp. 

Volume 20 820 -$20 

IVIore MuP21 - programming, demos, F95, Forth Specific 
Language Microprocessor F%tent 5,070,451 126 pp. 

Volume 21 

MuP21 Kit; My Troubles witfi This Dam 82C51 ; CT100 Lab 
Board; Born to Be Free; Lawsof Conputing; Trafific Controller 
and Zen of State Machines; SiiBoom Microprocessor; 
Programmable Fieldbus Controller 1X1 ; Logic Design of a 
16- Bit t^icroprocessor PI 6 9S pp. 



MISCELLANEOUS 



T-shirt, "May the Forth Be With You" 601 - $1 8 

[Specify size: Small, Medium, Large, X-Largeon order form) 
white design on adafk blue shirt or green design on tan shirt. 

BIBLIOGRAPHY OF FORTH REFERENCES 340 -$18 

ad ad,, January 1987) 

Over 1900 references to Forth articles throughout computer 
literature. 104 pp. 



DR. DOBB'S JOURNAL back issues 



Annual Fortfi issues, including code for Forth applications. 

September 1982, September 1 983, Sepember 1984 {3 issues) 

425 -$10 



FORTH INTEREST GROUP 

JOO Dolores St., Suite JH3 • Camiel, Califoniui 93923 • (>fj!ce@f()rlli.ori^ 



For credh ca/d orders or cjslomer 5erino&: 

Phone Orders 
weekdays 
9.00-1.30 psr 



408.37.FORTH 

408.373.6784 
408.373.2845 (fax) 



Name 
Company 
Street 
City 

State/Prov.. 
Nation 



Nor-Posi Office 
derive ries: include 
special irtstruclrons. 



The arTicunt oi your 
i siit>'ii:lal,.. 



ihe shipping S 



Zip- 



voice 
fax 
e-mail 



Surtae* 


Up to S-IO.OO 


17.50 


U.S. 4 IfiMf national 


S4o.ai tc lao.oo 


HO. 00 




wool ID $150.00 


Slb.OO 




Abir'vs SI 50.00 


10% ol Total 


IntenkMlsnal Air 




40% cl Total 


Courier Shipnients 




$15 + courier cosis 






Vv:THCUT I-JOTICl 


Quantity 


Unit Price 


Total 



□ CHECK ENCLOSED (payable to: Forth Interest Group) 

□ V ISA/MasterCard: 



sub-total 



10% Member Discount 



Member* 



Card Number 



exp. date 



Sales tax* on sub-totai (Caiifornia only) 



Shipping and handling (see chart above) 



Membership" in the Forth Interest Group 

n Mew D Renewal 



TOTAL 



Signature 



X MEMBERSHIP IN THE FORTH INTEREST GROUP 



Thft Fortti Inteiesi Group (FIG) is a worldwide, ron-protit, n)emt>8r-Euppofted organization wild over 1 .000 members and tOchaptari. Your membership Includes a sjbsenptkjn tottw bi-monthly 
magazine Forth Dme/isjons. fig also offers its n-iembers an on-line data base, a large se lection of Forth literature and other ser*icBs. Cost is $45 per year for U.S.A: all other countries $60 per year. 
This fee includes $39 for Forth Dimensions. No sales tax, handlir^g fee, or discount on membership. 

Whenypujoin, your first issue will arrive in four to sijtweelss; subsequent issues will be mailed to you every other month as ineyare published— six issues in all. Your mambersiiip entitles you to a 10% 
discount on publioations and functions of FIG. Dues are not deductible as a charitable contribution for U.S. federal income tax purposes, but may be deductibfe as a business expense. 



PAYMENT MUST ACCOMPANY ALL ORDERS 

PHICES: All orders mu^t be prepaid. Prices are SHIPPING & HAI*1DLING: 
subject to change without notice. CredJ card orders 
WLlf be sent and billed at current prices. Checks must 
be iri tJ.S. dollars, drawn on a U.S. bank. ASIOctiarge 
Will tst added for relumed checks. 



AH orders calculate shipping 
% handling based on order 
dollar value. Spaciat nandling 
Bv&il&t!s on rsquest. 



SHIPPING TIME: 

Books in stock ere shripped withm 

seven days of receipt of the order 

SUFtFACE DELIVERY: 

U.S: 10 days 

other- 30-60 days 



Fast service by fax: 408.373.2845 



CALIFORNIA SALES TAX BY COUNTY: 
7.75%: Del Norte, Fresno, imperial. Inyo. Madera, Orange, 
fliveisifle. Saciamentp. Santa Clara. Sania earbaia. San Ber. 
nardiro. San Diego, and San joafluin: 6,^5%: Alameda, Contra 
Costa, Los Angeles San Mateo. San Francisco, San Benito, and 

Santa Cru^: 7.25%: other ooLiniies. 

XX. 1 



50: WRITE, BYTE 
WRITE. BYTE 
WRITE. BYTE 
RST LOW 
10 MS 



\ send "Write TH" command byte 501 

\ write temp value - b2 

\ write sign byte - bl 

\ wait for eeprom write cycle 



WRITE. TL { bl b2 — 1 \ write T-Low reg 

RST HIGH 

502 WRITE. BYTE \ send "Write TL" command byte S02 

WRITE, BYTE \ write temp value - b2 

WRITE. BYTE \ write sign byte - bl 
RST LOW 

10 MS ; \ wait for eeprom write cycle 



: P03, FORMAT ( Li - - ) space <# # ascii , hold #S #> type 2 spaces 

: NEG. FORMAT [ u -- ) <# # ascii . hold #S ascii - hold l> type 

2 spaces ; 

: .BIN ( b — ) base @ >r binary <##########> type 

space r> base ! ; 



SHCW.TH { ~- ) \ Display T-High value in degrees 

RST HIGH 

5A1 WRITE, BYTE \ send "Read TH" command byte 5A1 

READ. WORD DUP 
RST LOW 
10 MS 

25 6 AND 0= 

IF OFF> WEG 10 * U2/ 

ELSE 0N> MEG SFEFF AND INVERT . BYTE 1+ 10 * U2/ 
THEH ." > " MEG 

IF HEG, FORMAT \ Display Temp 

ELSE POS . FORMAT 

THEN cr 



SHOW.TL ( — ) \ Display T-Low value in degrees 

RST HIGH 

$A2 WRITE. BYT£ \ send "Read TL" command byte Sfl2 
READ. WORD DUF 
RST LOW 
10 MS 

256 AND 0= 

IF OFF> NEG 10 * U2/ 

ELSE 0N> NEG $FEFF AND INVERT , BYTE 1+ 10 * U2/ 
THEN ." > " NEG 

IF NEG.FORMAT,^ \ drspiay Temp 

ELSE P03 . FORMAT 

THEN cr 



START. CON VERS ION ( — ) 

RST HIGH 

$EE WRITE. BYTE \ send "Start conversion" 

RST LOW ; \ command byte $EE 
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: STOP. CONVERSION { -- ) 

RST HIGH 

$22 WRITE. BYTE \ send "Stop conversion" 
RST LOW ; \ command byte $22 



WRITE. CONFIG { b — ) \ write byte to config reg 

RST HIGH 

50c WRITE. BYTE \ send "Write config" command 
WRITE. BYTE \ byte 50C 

RST LOW 
10 MS ; 



SHOW, CONFIG 



( — ) 
RST HIGH 
$AC WRITE . BYTE 
READ. BYTE 



\ Display config reg in binary 



\ send "Read config" command 
\ byte $AC 



> 

RST LOW 
10 MS ; 



•BIN CR 



SHOW. PARAM 



( — ) N Display all chip parameters 
cr cr 

." T-HIGH " SHOW.TH \ display T-High in degrees 

." T-LOW " SHOW.TL \ display T-Low in degrees 

." CONFIG " SHOW. CONFIG \ display Config reg in binary 
cr ; 



STAND. ALONE { ) 

00 WRITE. CONFIG ; \ configure for stand alone mode 



: READ, TEMP ( — bl bZ ) \ read temp conversion reg 

RST HIGH 

$AA WRITE. BYTE \ send "Read Temp" command byte $AA 

READ. WORD DUP 
RST LOW 
256 AND 0= 

IF OFF> WEG 10 * U2/ 

ELSE 0N> NEG $FEFF AND INVEST. BYTE 1+ 10 * U2/ 
THEM ; 



SHOW. TEMP 



{ -- ) 
PORT . INIT 
$02 WRITE. CONFIG 
START , C0KVER3 ION 
1 seconds 
CLS cursor-off 
BEGIN 

20 12 at 
NEG IF 



\ display temperature in degrees 
\ set up config reg for 3 wire 
\ wait for complete convers ion 



" TEMP > " READ, TEMP 

NEG. FORMAT V display temp 

ELSE POS. FORMAT 
38 12 at ." Degrees C " 

THEN key? \ hit any key to quit 

UNTIL cr cursor-on 
STOP. CONVERSION ; 
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LOAD" Module" 



This article outlines a metliod for organising program sec- 
tions (called modules) utilising the top line (line 0) on each 
screen — the line usually left for "notes" in most screen edi- 
tors. The idea was primarily developed to organise the load- 
ing of programs, but can be used to implement, for instance, 
a simple help engine. 

The program listing is for LMI's UR/FORTH (Forth-83). 

This idea had its beginnings in the use of the first line of a 
screen (line 0) for notes. It seems almost all Forth screen edi- 
tors use this convention — I have notes going all the way back 
to 1979 (in Forth-79!) that use this idea. 

For some time before I wrote this program, it seemed to 
me that this first line could be used for much more than 
notes — it could virtually be used as a record "header," with 
the rest of the screen as the "data, " which led to the idea that 
a program could scan through screens, using the data on line 
for structural information. 

This thinking was proceeding along with other thoughts 
about program organisation (and version control and so on), 
especially the desire to divide programs up into chunks — not 
necessarily different files, just different sections. The main 
problem in using standard loading screens like either: 

1 LOAD 
10 LOAD 

20 LOAD etc, (when using — >) 

or: 

I 9 THRU 
10 16 THRU 

20 27 THRU etc, (when fjotusing -->) 

is that, when editing screens, especially when inserting and 
j deleting screens, almost all the numbers in the above state- 
ments have to be ctianged. We were looking for a system 
which did not need this editing. If possible, the ideal aim was 
to do away with screen numbers altogether (at least when 
defining a loading screen!). 

Finally, these ideas came together in what we at Jarrah 
Computers call modules. Each section of a program, called a 
module, has the name of the module on the top line (line 0) 
of the screen. Modules consist of a consecutive series of screens, 
with the same identifying string on line of each screen. 

The main word in this program is FiNDmodule which ao^, 
cepts a string as its argument, and then scans the file looking 
for the first screen with the given string on the first line. If no 
screen is found, a false flag is left. 

If a screen with a matching string is found, the screen 
j number is saved as the start screen, and a second search is 
i undertaken, examining subsequent screens until the match 
string is Kot found. In this case of a found string, FlNDmodule 
leaves the starting screen, the ending screen+l, and a true 



Dave Edwards, Perth, WA, Australia 
jarrah@inf.net.au 



flag on top. We decided to make the second argument end 
screen+l so that the arguments could be fed directly into a 
DO LOOP (after a swap!). 

To handle the "given string," and to make the process 
nestable, we implement a siring buffer which can hold up to 
ten (nests, in fact) strings. Effectively, the string buffer, and 
the variable $nest make up a string "stack." Utility word 
> $BUF moves a string to the string buffer ("pushing" it onto 
the string stack), and . $buf displays the (top) of the string 
buffer. The word $[ runs >5BUf and then nests a level, and 
the word ] 5 unnests. So, the syntax: 
" ModuleName" $[ ModuleFUWCTIONs ] S 

will push the string ModuleName onto the string stack, and 
the ModuleFUNCTIONs in the $[ ] $ brackets will be run 
using ModuleName as their argument. After ! $ the string is 
popped, leaving the stack in the same state as at entry. 

After defining FINDmodule, we can easily write a find" 
word which is used 

FIND" aModule" or FIND" bModule" 

etc., primarily for interactive use. 

Having developed FINDmodule, all that remains is to put 
it to use in applications! 

The first real use to which we put FiNDwodule is to LOAD 
screens, as in LOADmodule. If the module is found, all we 
need to say is l- thru. Of course, if it is not found, we sim- 
ply pro\nde a message. Again, from LOADmodule, it is easy to 
define LOAD" (as in LOAD" ThisOrThat"). With these tools, 
we can write a set of loading commands like; 
LOAD" StartModule" 
LOAD" MainFunctionals" 
LOAD" DlsplayFunctionals" 
LOAD" MainProcesses" 
LOAD" OuterLoop" 

to load an entire program — without specifying screen numbers! 

Of course, the next thing that happens is that these com- 
mands themselves occupy a set of screens, which can be de- 
fined as a module! At Jatrah Computers, we call this the pro- 
grain module, and it has the format, for example. 



Dave Edwards is a qualified electronic engihSiisf; In 1 984, he fdrriried 
Jarrah Computers, specialising in custom; mrcrb"controllers—&g., the 
HC05 ,65F1 1 /1 2, HC1 1 and, of course,Fdt:th chips from the Novix on. 



" ThisProgram" or " ThatProgram" and is usually the 
first module defined in a screen file. To load the entire pro- 
gram, all we have to say is 
LOAD" ThisProgram" 
(or, alternatively, load" ThatProgram" !) 

Another simple (but very handy!) function is to define a 
module " RELOAD" , a screen which usually contains only: 
FORGET FirstWordlnTheProgram 
LOAD" TheProgram" 
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and we can then load" reload" , 

It is quite easy to extend this system to load modules from 
other files, all we require is to buffer the filenames (again, 
nestably), functions which we do not need to cover here. We 
called this word use_load" , used in the form: 
" Filename. abc" USE_LOAD" Module" 

Another handy function we call BROWSEing included in 
the listing) has been used to implement a simple help sys- 
tem. All we need to do is find the module and, if it is found: 

START with the StartScreen (returned by a 
successful FIWDmodule) 

BEGIN LIST the curr-ant screen, wait tor key. , , 
If pgup : Decrement the current screen 

(bounded by StartScreen} 
If pgdn: Increment the current screen 

(bounded by EndScreen) 
If Esc : exit. Else continue 

In this example, we use a simple LIST facility to display 
the screen, but this could be any desired display (in its own 
"window," etcj. Finally, to implement the help facility, all 
that is needed Is to put phrases like: 

BROWSE" ThisSectionHelp" 
or 

BROWSE" ThatSectionKelp" 



etc., wherever required in the code. Note that it is very easy 
to implement the" page UP previous" and" page down 
next" prompts (which disappear when they are no longer 
relevant), as we have made copies of the start and eud 
screens. The main advantage of using this system is that the 
help file can be edited at any time and the program will dis- 
play all the new screens without need to modify the program 
(again, provided that the module names have been included 
on line of each new screen). 



Dave Edwards is a qualified electronic engineer who formed Jarrah 
Computers,an embedded systems development company using Forth, 
in 1984, His company has specialised in design of custom 
microcontrollers ranging from the HC05 single-chip family, through 
the Rockwell 65F11/12,the 68HCn and, of course, has investigated 
the range of Forth chips ever since the Novix appeared. Dave presented 
a paper on applications of the Novix to the Australian Forth Sympo- 
sium and has previously contributed articles to Forth Dimensions. 

Dave's other interests include music— both performance and com- 
position. In 1993, he wrote an opera ("Giles - Is That You?") and is cur- 
rently working on a second opera ("Giles at Fort Meuller").The MIDI 
music system used for the two productions was programmed by Dave 
in Forth especially for the productions, and he still does some ses- 
sion work as a keyboard player around Perth, 



Listing One 

( Code Following) 

\ Modules 09:51 22,06.98 

Code for LMI's UR/FORTH (F83} for modules of code. 
FIND" with $Buffer Nesting. 
LOAD" with No File Nesting, 
BROWSE" for implementing simple Help, 
Version ONLY for ForthDimensions Article. 
Copyright (C) Jarrah Computers 1993-1993, 



j \ LOAD" 

; 54 CONSTANT CH/LN 

I 24 CONSTANT Mod" Size 

I 10 CONSTANT NESTS 



09:55 22.06,98 

{ Characters/Line ) 
(Module St ringSize } 
VARIABLE 5NEST $NEST OFF ( $NeEtLevel) 



CREATE $BUFS NESTS Mod" Size * ALLOT (Buffer For Strings) 

: 5BUF ( A) $BUFS $WEST @ MAX NESTS MIN Mod" Size * + ; 
: >$BUF ( A --) $BUF Mod"3ize + DUP OFF OVER CS 1+ CMOVE ; 

: $[ >$BUF $NEST NESTS 1- < IF 1 $NEST +! THEN ; 
: ] 5 5NEST @ 0> IF -1 $NEST +! THEN ; 
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I : 'SOURCE [ ' SOURCE >BODY ] LITERAL ; (For Source resetting) 

\ LOAD" 09:53 22.06.98 

: 5onLineO ( Scr| £) \ True it 5BUF String on LireO of Scr^t 
BLOCK 2+ ( Point to vjord After " \_" ) 

CH/LN 'SOURCE 2! >IN ! C NewSource ) 

$BUF COUNT BL WORD COUNT STRCMP 0= ; { $Match? ) 

FINDmodule i -- F I nl n2 T ) \ nl StartScr, n2 EndScr + l 

>I1J @ >K BLK @ >R SOURCE >R >R (Save Source) 

FALSE ( Seed the stack) 
7SCREENS V DO I $onLineO IF DROP I TRUE LEAVE THEN LOOP 

IF ? SCREENS 2DUP SWAP ( t-low search for EndOf Module) 
?D0 I $onLineO NOT IF DROP I LEAVE THEN LOOP TRUE 
ELSE FALSE 

THEN R> 'SOURCE 2! R> DUP ELK ! BLOCK DROP R> >IN ! ; 

\ LOAD" 09:53 22.06.98 

: . $BUF ( --) \ For displaying Modules as we are loading 
OUT @ 80 SBUF C@ 1+ - > IF CR THEM 
-■JBUF COUNT Ti'PE SPACE ; 

I LOADmodule ( — } \ Loads Screens with $=5BUF 
.$BUF FINDcnodule IF 1- THRU 

ELSE ABORT" .. not found " THEN ; 

: FIND" ASCII " FEED ?( FINDmodule ] $ ; IMMEDIATE 

; LOAD" ASCII " FEED $[ LOADmodule ] $ ; IMMEDIATE 

I and that's the end of " — >" ! ) 



\ Browse - for implementing Help 09:58 22,06.98 

DECIMAL 

I VARIABLE MODSTART ( Start Screen of module) 

VARIABLE MODEKD ( Efid Screen of module) 

DISP-SCR DUP LIST ( n -- n ) 

CR ESC to exit 
DUP MODSTART @ 
= WOT IF ." PAGE UP previous 
ELSE 

THEN DUP MODEND 3 
= NOT IF ." PAGE DOWW next " 
ELSE ." 
THEN ; 



\ Browse - for implementing Help 



09:58 22.06.98 



; BLIP 200 15 BEEP ; 

: WITHIN It OVER - >R - R> U< 



: HELP+ DUP MODEND g < IF 1+ ELSE BLIP THEN ; ( n n') 

; HELP- DUP MODSTART @ > IF 1- ELSE BLIP THEN ; ( n — n') 



(Code continues on page 26.) 
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STANDARD FORTH 



BELT - #5 



l^cal Macros 



Simple macios can be implemented in Standard Forth with 
string literals and evaluate, 

: :G0 S" AHEW NONCE : (GO) " EVALUATE ; 
IMMEDIATE 

: GO S" (GO) NONCE " EVALUATE ; 
IMMEDIATE 

This means that code :G0 will be resolved by evaluating 
AHEW HOHCE : (GO). That Starts the definition of (go). 
When the definition has been completed with ;, then go 
will execute (GO) and automatically forget it along with 

NOHCE. 

So macros are shorthand. We have shorthand for creating 
the shorthand, 

{ Simple Macro -- No parameters. ) 

; MACRO ( "name <char> ccc<char>" — ) 

: CHAR PARSE POSTPONE SLITERAL POSTPONE EVALUATE 
POSTPONE ; IMMEDIATE 



macros, my must also be used to resolve other local macros. 

You use CLEAK-HY-HACROS to empty the list of macros 
before putting your present ones in. 

Local macros are defined similarly to global macros; 

my MACRO name " what 's to be evaluated 

Any non-blank character may be used instead of The de- 
limiter should not occur in the text. I generally use [ when " 
is in the text. 

Local macros ace not Forth definitions. They do not take 
any dictionary space. Define them, use them, and throw them 
away. 

In the Stretching Forth article "What's a Character?" local 
macros moderate what would have been an excessive num- 
ber of definitions. 

The source code includes definitions of place, buffer:, 
CKAS-DO, CHAR- LOOP, and tippercRse-Pad. 



The two macros above can be written: 

MACRO ;G0 " ANEW NONCE : (GO) " 
MACRO GO ■■ (GO) NONCE " 

Forth macros can be used when interpreting or compil- 
ing, and are known globally in a search order. 

C macros are compile only. An application can have many 
macros, which disappear after the compilation. This is con- 
1 vetiient for factoring the application for the time now only. 
We can define macros, use them, and lose them. 

Global macros, as defined above, are put into the Forth 
dictionary. When the Forth interpreter recognizes them, it 
executes the word and evaluates the associated text. Macros 
are immediate and so are not compiled. The evaluated text 
may be. 

Local macros are not put into the Forth dictionary. In- 
stead, a common area is used and re -used as files are com- 
piled. The sice of the area, Hy-HacroB-Size, will deperld on 
your use, and you can increase or decrease it. 

The macros are stored as strings — name and what's to be 
evaluated — in the familiar last-in, first-found sequence. The 
word my followed by a name looks the name up and evaluates 
the associated string when the name is found. Within local 



Wil Baden is a professional programmer with an interest in Forth, For 
a copy of the source for thii articfesend e-mail requesting "Standard 
Forth Tool Belt #5; Local MacrbF 
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STANDARD FORTH 
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I ( Local Macros ) 

3 ( User words: 

4 CLEAR-MY-mCROS 

5 my MACRO _nei^a.croname_ " What to do " 

6 my ^macroname^ 

7 ) 

9 2000 CHARS CONSTANT My~Macros-Size ( Whatever you need. ) 
10 My~Macros-Size BUFFER: My-Macros 

I 12 MACRO nodee " @ " MACRO node! " i " 

; 14 { Scan for item in a list, one by one. } 
\ 15 ( Called by 'my' to find macro. ) 

i 16 : scan-item ( str len head -~ item j ) 

I 17 ROT ROT 2>R ( list) { R: str len) 

j IS BEGIN nodes DUP WHILE 

I 19 DUP CELL+ COUNT 2R@ COMPARE 0= 

j 20 UNTIL CELL+ ( item) 

I 21 THEN 
! 22 2R> 2DR0P 

\ 23 ; 

'[ 25 ( Check that there's still enough room in macro space. ) 

26 ( Called by '-MY-mCRO\ ) 

27 : my-macros-enough { n addr -~ same ) 

28 OVER 1+ CHARS OVER + My-Macros My-Macros-Size ^ U> 

29 ABORT" My Macros Full. " 

i 30 ; 

j 32 ( Make name upper case for case insensitivity . ) 
I 33 { Called by "MY-MACRO" and 'my\ ) 

i 34 ■ raise-case ( str len str' len ) 

35 31 WIN Uppercase- Pad PLACE Uppercase-Pad COUNT 

. 36 \ 2DUP chars -to-upper 

1 37 2DUP CHAR-DO I C9 DUP [CHAR] a - 26 U< BL AND - I C! CHAR-LOOP 

j 38 ; 

40 i Find where new inacro will go, and link to top of list. ) 

41 { Called by ' MY -MACRO ' . ) 

42 ■ My-Kew-Macro ( -- addr ) 

43 My-Macros nodeS - ( addr) 
: 44 DUP 0= IF DROP My-Macros CELL+ { First macro ) 

; 45 ELSE CELL+ COUNT CHARS + COUNT CHARS + ALIGNED 

46 THEH 
1 47 DUP My-Macros 2DUP nodeS SWAP node! node! 

48 CELL+ 

49 ; 

51 { Place macro name and replacement in macro list. ) 

52 { Caiied by 'my^ . ) 

53 : MY-MACRO ( " name <char> string<char> " -- ) 



Forth Dimensions XX.l 



25 



STANDARD FORTH TOOL 



5 



54 My-New-Macro >R { ) { R: addr) 

55 BL WORD COUNT ( str len) raise-case ( str len) 

56 R@ my-macros -enough PLACE ( ) 

57 CHAR PARSE R> COUNT CHARS + my-macros -enough PLACE { R: ) 

58 ; 

60 ( Use 'my^ before local macro names and before 'MACRO\ ) 

61 : my ( " name" -- ??? ) 

62 BL WORD COUNT { str len) raise-case ( str len) 

63 2DUP S" MACRO" COMPARE 0= 

64 IF 2DROP MY-MACRO EXIT THEN 

65 My-Macros scan-item DUP 0= ABORT" Not my macro. " 

66 COUNT CHARS + COUNT EVALUATE 

67 ; IMMEDIATE 

69 ( Start a new set of local macros. ) 

70 : CLEAR-MY-MACROS ( — ) My-Macros ! ; 



Load" Module" code, continued from page 23. 

: GET-KEYS KEY DUP ( — n ; converts to uppercase) 

0= IF DROP KEY 8 SHIFT 
ELSE DUP ASCII a ASCII z WITHIN IF 223 AND THEN 
THEN BEGIN ? TERMINAL WHILE KEY DROP REPEAT ; 

HEX 

OOIB CONSTANT <ESC> 4900 CONSTANT <PGUP> 5100 CONSTANT <PGDN> 
DECIMAL 

--> 

\ Browse - for implementing Help 09:58 22.06.98 

( " str" ; String of Screens to display ) 

: BROWSE $[ CR ." Locating: " .$BUF ( For slow disks! ) 

FINDmodule IF 1- MODEND ! DUP MODSTART ! ( Set Screen Limits) 
( Scr On StacJ<:) BEGIN DISP-SCR GET-KEYS 

CASE <ESC> OF TRUf: ENDOF 

<PGUP> OF HELP- FALSE ENDOF 
<PGDN> OF HELP+ FALSE ENDOF 
DUP OF BLIP FALSE ENDOF ENDCASE 
UNTIL DROP ( Drop remnant screenf) 
ELSE ." Module Not Found . . " KEY DROP 
THEN ] $ ; ( Denest at End ) 

: BROWSE" ASCII " FEED BROWSE ; IMMEDIATE 
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What's a Character? 



Forth has all the character and string manipulation func- 
tions it needs for interpreting and compiling Forth and for 
running target systems. 

When we want to use Forth for more advanced text han- 
dling on host systems, we need more. 

One of the first inconveniences is naming. 1 suspect that 
converting a character to uppercase is a common function in 
virtually every system, but there is no common name. 

I've used implementations that have called it >upper, upc, 

UPCASE, UPPERCASE, OC. 

My solution is to adopt the name from the Standard C 
Library together with the other related functions. Then 1 can 
explain by saying "it's the same as the Standard C Library." 

isalnum Alpha-numeric character 
isalpha Upper- or lower-case letter 



1 { CTYPE Functions -- Short ) 
3 ANEW --CTYPE-- DECIMAL ( Slow version -- will be overlayed. ) 



4 




( char 


-- flag ) 


5 


isalpha 


BL OR [CHAR] a - 26 U< ; 




6 


iscntrl 


1+ 127 AND 34 < ; 




7 


isdlgit 


[CHAR] - 10 U< ; 




8 


isalnxjin 


DUP isalpha ORIF DUP isdigit THEN 


NIP ; 


9 


is graph 


[CHAR] ! - 94 U< ; 




10 


is lower 


[CHAR] a - 26 U< ; 




11 


isprint 


BL - 95 U< ; 




12 


i supper 


[CHAR] A - 26 U< ; 




13 


ispunct 


DUP isgraph ANDIF DUP isalnum NOT 


THEN NIP ; 


14 


isspace 


DUP BL = ORIF DUP 9 - 5 U< THEN NIP ; 


15 


isxdigit 


DUP isdigit ORIF DUP BL OR [CHAR] 


a - 6 U< THEN 


16 




{ char 


-- char' ) 


17 


toupper 


DUP [CHAR] a - 26 U< BL AND - ; 




18 


tolower 


DUP [CHAR] A - 2 6 U< BL AND + ; 





The most used of those is toupper. If you're going to be , 
doing a lot of text massaging, this should be improved. 

If your system has a CODE version of this function, you 
can adopt it. 



MACRO toupper " UPCASE " 

Another approach is to use a translation table. 
[Continues on next page.] 



Wil Baden is a professional programmer with an interest in Forth.For 
a copy of the source for this article, send e-mail requesting "Stretch- 
ing Forth #20: What's a Character?." 



iscntrl Control character 

isdigit Decimal digit 

isgraph Not space 

islower Lowercase 

isprint Printing character, including space 

ispunct Neither space nor letter nor digit 

isspace Space, tab, return, linefeed 

isupper Uppercase 

isxdigit Sedecimal digit 

tolower Convert and return lower-case letter, 

toupper Convert and return upper-case letter. 



Here is a minimum storage high-level implementation of 
those. 



Wil Baden • Costa Mesa, California 
wilbaden@netcom.com 
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1 ANEW --CTYPE-- DECIMAL ( Fast version. Let's keep this one. ) 
3 256 CHARS BUFFER: Utpercase-Table 

5 :G0 256 DO 

6 I DUP [CHAR] a - 26 U< BL AND - Uppercase-Table I CHARS + C! 

7 LOOP ; GO 

9 MACRO toupper " CHARS Uppercase-Table + C© " 

This is much faster than the CODE version on the system 
I'm using, and I have enough space, so the translation table 
version is the one I have adopted. 

(The code gets optimized in the loop cycle and I can't tell 
how long it takes.) 

: MIL 1000000 * ; 

: NOTHING ; IMMEDIATE 

MACRO toupper " CHARS Uppercase-Table + C@ " 

: >UPPER DUP [CHAR] a - 26 U< BL AND - ; 

: WITHIN OVER - >R - R> U< ; 
: BETWEEN 1+ WITHIN ; 

: UPPERCASE DUP [CHAR] a [CHAR] z BETWEEN BL AND XOR ; 

// :G0 COUNTER 1 MIL DO 127 32 DO I | DROP LOOP LOOP TIMER ; GO CR 
NOTHING toupper UPCASE >UPPER UPPERCASE 

W 

\ 3833 MS 
\ 3834 MS 
\ 4783 MS 
\ 10300 MS 
\ 18734 MS 

1 also adopted a translation table for tolower. 

11 256 CHARS BUFFER: Lowercase-Table 

13 :G0 256 DO 

14 1 DUP [CHAR] A - 26 U< BL AND + LoWercase-Table I CHARS + C! 

15 LOOP ; GO 

17 MACRO tolower " CHARS Lowercase-Table + C© " 
The string conversion routines are: 

•15 ( str len -- ) 

20 : chars-to-upper CHAR-DO I C@ toupper I C! CHAR-LOOP ; 

21 : chars-to-lower CHAR-DO I C@ tolower I C! CHAR- LOOP ; 
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To accelerate the character-tests, a 256-byte table of bit- 
codes is used. Macros set and test those codes. 15 macros are 
defined to do this. These macros have no other purpose out- 
side these definitions and at this time. 

These macros are set up as local macros. Their definitions 
will go away and the space for them will be recovered. There's 



less here than meets the eye. 

The only definitions that will remain will be char-Code 
and the 11 laaometblog functions. 

See Tool Belt #5, "Local Macros," for code for local vari- 
ables. That should be loaded first. / / is iterated interpreta- 
tion, presented in Tool Belt #3. 



23 { CTYPE Character Type Functions -- Fast ) 



25 CREATE Char-Code ( Table for character codes. ) 



27 CLEAR-MY-MACROS 



29 ( Character Testing Functions ) 



31 


my 


MACRO 


Control-Char 


„ ]_ ,. 


32 


my 


MACRO 


Mot ion- Char 


M 2 " 


33 


my 


MACRO 


Space-Char 


„ 4 n 


34 


my 


MACRO 


Punctuation 


„ 8 „ 


35 


my 


MACRO 


Digit 


" 16 


36 


my 


MACRO 


Hex-Digit 


" 32 


37 


my 


MACRO 


Iiower-Case 


" 64 


38 


my 


MACRO 


Upper-Case 


" 128 



40 ( Nothing has been compiled since ^Char-Code" ; so the following 

41 ( bytes go there. Each byte has one bit on. ) 



43 II my | C, 



45 Control-Char Control-Char Control-Char Control-Char 

46 Control-Char Control-Char Control-Char Control-Char 

47 Control-Char Motion-Char Motion-Char Motion-Char 

48 Motion-Char Motion-Char Control-Char Control-Char 



50 Control-Char Control-Char Control-Char Control-Char 

51 Control-Char Control-Char Control-Char Control-Char 

52 Control-Char Control-Char Control-Char Control-Char 

53 Control-Char Control-Char Control-Char Control-Char 



55 Space-Char 

56 Punctuation 

57 Punctuation 

58 Punctuation 



Punctuation 
Punctuation 
Punctuation 
Punctuation 



Punctuation 
Punctuation 
Punctuation 
Punctuation 



Punctuation 
Punctuation 
Punctuation 
Punctuation 



60 Digit 

61 Digit 

62 Digit 

63 Punctuation 



Digit 
Digit 
Digit 

Punctuation 



Digit 
Digit 

Punctuation 
Punctuation 



Digit 
Digit 

Punctuation 
Punctuation 



65 Punctuation Upper-Case Upper-Case Upper-Case 

66 Upper-Case Upper-Case Upper-Case Upper-Case 

67 Upper-Case Upper-Case Upper-Case Upper-Case 

68 Upper-Case Upper-Case Upper-Case Upper-Case 
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70 Upper-Case 

71 Upper-Case 

72 Upper-Case 

73 Punctuation 

75 Punctuation 

76 Lower-Case 

77 Lower-Case 

78 Lower-Case 

80 Lower-Case 

81 Lower-Case 

82 Lower-Case 

83 Punctuation 



Upper-Case 
Upper-Case 
Upper-Case 
Punctuation 

Lower-Case 
Lower-Case 
Lower-Case 
Lower-Case 

Lower-Case 
Lower-Case 
Lower-Case 
Punctuation 



Upper -Case 
Upper-Case 
Upper-Case 
Punctuation 

Lower-Case 
Lower-Case 
Lower-Case 
Lower-Case 

Lower-Case 
Lower-Case 
Lower-Case 
Punctuation 



Upper-Case 
Upper-Case 
Punctuation 
Punctuation 

Lower-Case 
Lower-Case 
Lower-Case 
Lower-Case 

Lower-Case 
Lower-Case 
Punctuation 
Control-Char 



85 \\ 

86 128 RESERVE ( Clear the rest of the table. ) 
88 ( Include hex-digits in 'Char-Code' table. ) 

90 II CHAR I CHARS Char-Code + DUP C@ my Hex-Digit OR SWAP C! 

91 0123456789ABCDEFabcdef 

92 \\ 



94 


my 


MACRO Letter 


" my 


Lower-Case 


my 


Upper-Case 


OR 


95 


my 


MACRO Alphanumeric 


" my 


Letter 


my 


Digit 


OR 


96 


my 


MACRO Graphic 


" my 


Alphanumeric 


my 


Punctuation 


OR 


97 


my 


MACRO Printable 


" my 


Graphic 


my 


Space-Char 


OR 


98 


my 


MACRO VOiitespace 


" my 


Motion-Char 


my 


Space-Char 


OR 


99 


my 


MACRO Control 


" my 


Motion-Char 


my 


Control-Char 


OR 



101 



my MACRO Char-Code 



CHARS Char-Code + C@ 



103 












( char -- 


flag ) 


104 : 


isalniun 


my 


Char 


-Code 


my 


Alphanumeric 


AND 


0<> ; 


105 • 


is alpha 


my 


Char 


-Code 


my 


Letter 


AND 


0<> ; 


106 


iscntrl 


my 


Char 


-Code 


my 


Control 


AND 


0<> ; 


107 


isdigit 


my 


Char 


-Code 


my 


Digit 


AND 


0<> ; 


108 


isgraph 


my 


Char 


-Code 


my 


Graphic 


AND 


0<> ; 


109 


is lower 


my 


Char 


-Code 


my 


Lower-Case 


AND 


0<> ; 


110 


i sprint 


my 


Char 


-Code 


my 


Printable 


AND 


0<> ; 


111 


ispunct 


my 


Char 


-Code 


my 


Punctuation 


AND 


0<> ; 


112 


is space 


my 


Char 


-Code 


my 


Whitespace, 


AND 


0<> ; 


113 


i supper 


my 


Char 


-Code 


my 


Upper-Case 


AND 


0<> ; 


114 


isxdigit 


my 


Char 


-Code 


my 


Hex-Digit 


AND 


0<> ; 
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Part II 

Adaptive PID 



the controller output and the plant input, and z is the plant 
output. The controller input is e as defined in (3). 

The optimization 

The controller is optimally tuned when the expected mean 
squared value of system error is minimized (i.e., we are doing 
another least-squares problem). It is very easy to get lost here 
and lose track of what we are doing, so let's be explicit about 
what we are dealing with. We are combining an input signal, 
X with the actual plant output, z, to create an error signal e. 
The error signal is then used as a control input, y, into the 
actual plant. If we knew the characteristics of the actual plant, 
a, p, and y, we could adjust the PID controller gains K^, K,., 
and Kj so that it is critically damped. 

In the last installment, we derived the equations neces- 
sary to achieve the proper gains given the plant parameters. 
However, in our current scenario, we do not know the actual 
plant parameters. So we estimate the plant parameters, given 
y and z. We then use these estimated plant parameters to 
choose our controller gains. 

So we want to minimize the mean square of the differ- 
ence between the output of the actual plant and the currently 
estimated plant, 

J{a,M) = ECerror)^ = f^iZ - z,f (4) 

k=\ fc=l 

where Z is the actual plant output and is the modeled plant 
output. Now. since we are going to be creating a digital imple- 
mentation of the controller, at some point we are going to 
have to switch from using differential equations to finite dif- 
ference approximations to them. If we make that switch at 
this point in our analysis, things will be somewhat simpler 
so, using second order finite difference approximations, our 
model plant equation becomes 



Aq - 27/f2 \ (pH-2a\ 2H'' 



(where His the time step size), simplifying the notation again, 
zt = aizt-i -\- a2Zt^2 + ^»iy<-i (6) 

or more generically, we can write this as, 
p 9 

2t = 5Z "■k^t-k + Yl ^kVt-k (7) 
fc=l k=l 

Using this form, we can always go back to the original 



Introduction 

Let's continue with our investigation of adaptive PID con- 
trollers by looking at how to implement the plant identifica- 
tion part of such controllers. For those of you that have lost 
track, PID controllers achieve the goal of regulating a system 
by combining a signal that is proportional to the error input, 
plus an integral of the error signal, and the derivative of the 
error signal. Controlling by just using the proportional sig- 
nal tends to cause oscillations; adding the integral term re- 
duces these. Adding the derivative term makes the system 
more responsive to signal changes. If we know enough about 
the system that we are controlling, then, in principle, we can 
adjust the gains for the separate proportional integral and 
derivative terms to achieve an optimal (critically damped) 
controller. 

The problem with this is that one is often faced with a 
system that is not characterized well enough to do this, or 
the system that is under control has unsteady parameters. 
When we are faced with this situation, an adaptive control- 
ler is a good choice to handle it. 

Matliematical recap 

First let's take a look at quick summary of the equations. 
Our controller is, 

y{t) ^ K^eit) + Ki f edr + (1) 
Jo dt 

where is the proportional gain, K, is the integral gain, and 
is the differential gain. The quantity e is an error signal 
that is the difference between the commanded input, x and 
the output of the controlled plant z. 

Our controlled plant is defined by the differential equa- 
tion, 

rn/ \ ^dz 

where a, p, and y are known constants and F{z) represents 
the imposed external forces on the plant (the input). 
The controller and the plant are coupled by, 

e = (x- Kjbz) Kq (3) 

where Kg is a known input gain of the controller and is a 
known feedback gain that is output from the plant. 

Note that we have changed variable names slightly, as com- 
pared to last time, so that we can consistently hook every- 
thing up together. To summarize: x is the input signal, y is 
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parameters, 



a 

7 



f (a2 + l) 

1 — Ci — 02 



1) 



(8) 



The steps we go through next are exactly the same as we 
did for solving the least-squares straight line problem in FD 
XIX. 3. Once again we can use a symbolic mathematics pack- 
age (I use Mathematica) to help avoid making an error in the 
derivation of the equations for the next steps, which are 
straightforward but rather tedious to do. 

We need to determine when the derivative of / with re- 
spect to the parameters is zero. 



dJ_ 
dai 
dJ_ 

da2 
dJ_ 









(9) 



These expand out to equations (10), (11), and (12). 

aiY^Zt-lZt-2+a2Y,Zt-2 + ^'^^t-2yt-l = 5I^2(-2 (11) 

ai X] 2t-iy<-i + «2 1] ^<-2y(-i + ^'1 H ft-i = Z1^3/'-i (12) 



which need to be solved for a,, a^, and b,. 

Let's step back and take a look at what we have arrived at. 
We now have three equations and three unknowns, so unless 
one of equations (10) through (12) turn out to be redundant 
(they are not), we can ultimately manipulate them to solve 
for our unknown terms. Further, we can see that our solu- 
tions are going to give us the plant parameters a, p, and y 
solely in terms of the histories (because of the sums) of the 
controller output y, the actual plant output signal Z, and th^ 
previous estimated plant output signal values z. 

The need to maintain the histories creates something of a 
problem because the terms in (10) through (12) will have to 
be reevaluated at each time step, which will impact the per- 
formance of the controller in a real-time environment. The 
equation in its general form (7) is known as an ARMA (Auto- 
Regressive Moving Average) model. ARMA models are ex- 
tremely important models for discrete systems and appear in 
many contexts. Techniques for efficiently solving ARMA 
models were worked out in the '50s, when you just couldn't 
throw a couple more MIPS and megabytes at the problem. 
One of the most suitable methods is called Plackett's algorithm 



(Plackett, 1950), which takes a current estimate of the pa- 
rameters and combines them with the new data to get the 
new estimate. It is important to recognize that Plackett's al- 
gorithm is not an approximation to the solution of (10) 
through (12), it is mathematically exactly the same — it just 
looks very different. 

Deriving Plackett's algorithm v«thout the use of matrix or 
linear algebra is tedious in the extreme, so I won't derive it 
here. Using linear algebra and something called the Gauss- 
Markov theorem (scary sounding words, but it's really just 
matrix-speak for linear least squares, which we already un- 
derstand), we arrive at the set of matrix equations. 



Pt-iXt-i(^J_i0t-i -yt) 

1 +xf_iPi_iXt_i 



(13) 



(14) 



The new quantities are: 

• is a vector containing the inputs and plant outputs — the 
z and y values in (7) — stacked one above the other. 

• Pf is the covariance matrix of the estimation error. It 
quantifies how good the current estimate is. It is calcu- 
lated from the output statistics of the model. The covari- 
ance matrix is where the controller history information 
went to from the direct formulation. 

• ^, is a vector containing the current plant parameter — the 
a and b values in (7) — estimates stacked up. 

This is what is known as a recursive estimator, it makes a 
new estimate based upon the current estimates plus the new 
data. 

Equations (13) and (14) give a practical method to esti- 
mate the plant parameters, given the past statistics and the 
new data. In this installment, we will look at how to imple- 
ment this; next time, we will go to the final step and use this 
estimate to adapt the controller. 

The numerical implementation 

For all the messy, complicated math, the implementation 
of all this is actually pretty straightforward once you have 
the equations and a Forth version of the linear algebra opera- 
tions. The matrix inverse (the matrix algebra version of di- 
vide) is part of the Forth Scientific Library; the other matrix 
operations we have to write ourselves. 

When writing a simulation of an adaptive controller, you 
have to remember to simulate the plant, too. In an actual 
application, this part would be replaced with a sub-system 
that aquires the digitized data from the physical system. 

Listing One [not available at press time, the code will be 
available via FTP and will be printed in our next issue. — Ed.] 
is a ANS Forth implementation that will demonstrate a PID 
controller plant identification using a simulated input sig- 
nal. Just to make it interesting, the (simulated) real plant 
actually changes a couple of times, so the estimate is forced 
to change, too. Initially, we have no idea what the model 
parameters are; we describe this uncertainty quantitatively 
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by initializing the covariance matrix P, to be large values on 
the diagonal and zero off the diagonal. 

The rest of the program directly implements equations (13) 
and (14). The program is designed to create an output time 
series that can be captured and used with gnuplot. 

Tricks to make it work better 

The implementation of an adaptive controller often has 
extra features 1 have not described so far, such as not recalcu- 
lating the gains every time step, but only after an interval of 
several steps. Once this is done, the accumulated sums are 
also reset, thus reinitializing the adaption section. Doing this 
helps tame the controller, particularly in a noisy system where 
it would eventually try to adapt to the noise. This is just one 
of many practical issues that make the use of adaptive PID 
controllers both a science and an art. 

There are two other common tricks, both of which are 
intended to keep the integral term under control. Remember 
that the purpose of the integral term is to smooth out oscilla- 
tions, but the fact that it is accumulated over the entire run 
time of the system can cause problems with responsiveness. 
The first trick is to limit the size the integral can grow to; this 
is especially valuable to do when the controller is imple- 
mented in scaled-integer or fixed-point arithmetic. The sec- 
ond useful trick is to reset the integral to zero when its sign is 
opposite of the error, e; this makes the integral term able to 
respond more quickly to the changing system, which is why 
the error changed sign (thanks to Jerry Avins for pointing 
out this one). 



Conclusion, Part 11 

We have now achieved the ability of being able to iden- 
tify the plant for a PID controller based upon its response to 
the incoming data. This is the final background piece we need 
in order to get to the ultimate: understanding and implement- 
ing an adaptive PID controller in Forth. I want to re-empha- 
size the fact that the details of what we have arrived at in this 
example are very dependent upon the choices we made for 
the plant model and how it is linked into the controller. Lots 
of other configurations are possible; the choice depends 
strongly upon the application. If you try to compare this with 
other derivations in the literature you will almost certainly 
see something different. What you will see in a comparison is 
that the methods used are basically the same. 

Feedback 

Please don't hesitate to contact me through Forth Dimen- 
sions or via e-mail if you have any comments or suggestions 
about this or any other Forthware column. 
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euroFORTH '98 

The 14th euroFORTH conference on the 
FORTH programming language and FORTH processors 
(Including an Internationalisation Workshop) 

September 1 8-21 , 1 998 



Conference delegates are welcome and encouraged to give 
papers on subjects related to the conference topics. As usual 
there will be a "4th" day, which will include an exhibition (DM 
100 per stand) and a chance for delegates to review the 
conferences. As in the previous years delegates from all parts 
of Europe and other continents are expected. 

Internationalisation Workshop 

When the International Organisation for Standardisation 
accepted ANS Forth as an International Standard, they asked . 
the ANS to address two areas in their next review. The two 
areas where: 

• Internationalisation 

• Requirements for embedded systems programmed in Forth 

It was agreed at euroForth '97 that we would hold a special 
workshop on internationalisation to investigate the issues the 
standard will need to address in order to allow programmers to 
develop multi-lingual applications. 



Conference Organiser 

Marina Kern 
C/o m2c 

Schauenburger Str. 15 
D 20095 Hamburg, 
Germany. 

Tel: +49 40 325682-10 
Fax: +49 40 325682-90 
Net: m2c@mail.hamburg.com 



Conference Chair 

Dr. Peter Knaggs 
Bournemouth University, 
Talbot Campus, Fern Barrow, 
Poole. Dorset. 
UK BH12 5BB 
Tel: +44 1202 595625 
Fax: +44 1202 595314 
Net: pik@bcs.org.uk 



Cost: A discount price (given in brackets) is available for delegates 
registering before the end of July. Note that all prices are exclusive of VAT 
(currently 16%). 

Resident Delegate DM 790 (DM 720) 
conference fee, accommodations, 3 meals a day 

Student - Limited openings! DM 400 (DM 340) 
conference fee, accommodations, 3 meals a day 

Guest DM 380 (DM 340) 
accommodations, 3 meals a day 

4th Day DM 135 per person 

accommodations, meals, exhibition and additional workshop 
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Fred Behringer's Transputer Forth package F-TP 1.00 is now 
available at 

ftp://ftp.leo.org/pub/comp/os/dos/programming/forth/ 
transputer/ 

This is a 32-bit nearly ANS, complete Forth for the T800 
for use with the INMOS B004, or compatible, board on an 
IBM compatible PC. It also works with the T400. The server 
on the host side is based on Turbo Forth, as are the cross- 
assembler and the metacompiler. The package is freeware and 
900 Kb in ZIP form. This includes a precompiled example of 
a multisystem (many Forths in one). The actual package is 
substantially smaller. 

For information, send e-mail to: 

Fred Behringer 

behringe@mathematik.tu-muenchen.de 

Mike Hore released Mops version 3.2. 

Mops is a public-domain development system for the Mac. 
It's based on Forth, with extensive OOP extensions, along 
the lines of Smalltalk. It comes with a class library which gives 
support for all the normal Mac interface functions. While 
not as full-featured as PowerPlant or MacApp, say, it's very 
adequate for the kind of applications which might be devel- 
oped by one programmer. 

Mops is derived from Neon, which was one of the first 
languages for the Mac that allowed actual development on 
the Mac itself. It's a close cousin to Yerk, which is a more 
"conservative" development of Neon, basically aimed at keep- 
ing up with later Macs and systems while remaining fully 
compatible with Neon. Mops is more "radical". It's a omplete 
reimplementation which compiles native (68K and PowerPC) 
code instead of the usual Forth threaded variety. It's very fast 
— about as fast as anything on the Mac in fact. It has a few 
other improvements over the original Neon, such as mul- 
tiple inheritance, public ivars and temporary (local) objects. 

http : //www. netaxs . com/- jayf ar/ mops.html 

ftp://ftp.taygeta.com/pub/Forth/Mops/ 

(taygeta is the main FIG ftp site) 



LEVELS OF MEMBERSHIP 

Your standard membership in the Forth Interest Group brings 
Forth Dimensions and participation in FIG's activities — like 
members-only sections o1 our web site, discounts, special 
Interest groups, and more. But we hope you will consider join- 
ing the growing number of members who choose to show their 
increased support of FIG's mission and of Forth itself. 

Ask about our special incentives for corporate and library 
members, or become an individual benefactor! 

Company/Corporate - $1 25 
Library -$125 
Benefactor - $1 25 

Standard - $45 (add $15 for non-US delivery) 

Forth Interest Group 

See contact info on mall-order form, or send e-mail to: 
offlce@forth.org 



A Shot in the Foot 

Bart Lateur wrote: The major problem with Forth is the 
fact that it's so damn easy to shoot yourself in the foot. Just 
accidently do something like @ and you'll get a system 
crash, on many systems. 

Anton Ertl replied: That's a problem of the system. Gforth 
on Linux gives: 

@ 

:1 

@ 

Error: Invalid memory address 
and 1 end up in the text interpreter (or whatever CATCHes 
this exception). 

By the way, with C you can shoot yourself in the foot in 
the same way (although a little more verbosely): 

mainO 

{ 

return *(char *)0; 



Compiling and running this on Linux gives: 

Segmentation fault (core dumped) 

and I end up in the shell. Catching this with a signal han- 
dler is somewhat more work than using CATCH in Forth. 





Support for older systems 
Hands-on hardware and software 
Computing on the Small Scale 
Since 1983 

Subscriptions 
1 year $24 - 2 years $44 
All Back Issues available. 

TCJ 

The Computer Journal 

P.O. Box 3900 
Citrus Heights, CA 95611-3900 
800-424-8825 / 916-722-4970 
Fax: 916-722-7480 
BBS: 916-722-5799 
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SPONSORS & BENEFACTORS 



The following are corporate sponsors and Individual benefactors 
whose generous donations are helping, beyond the basic member- 
ship levels, to further the work of Forth Dimensions and the Forth In- 
terest Group. For information about participating in this program, 
please contact the FIG office (office@forth.org). 

Corporate Sponsors 


Forth-based OSSCA and MULTOS. 


vmw. kernelf orth .com 

An interactive programming environment for writing Win- 
dows NT and Windows 95 kernel mode device drivers in Forth. 


AM Research, Inc. specializes in Embedded Control applica- 
tions using the language Forth. Over 75 microcontrollers are 
supported in three families, 805 1, 681 1 and 8xCl 6x with both 
hardware and software. We supply development packages, do 
applications and turnkey manufacturing. 


www.theforthsource.com 


Clarity Development, Inc. (http://www.clarity-dev.com) pro- 
vides consulting, project management, systems integration, 
training, and seminars. We specialize in intranet applications 
of Object technologies, and also provide project auditing ser- 
vices aimed at venture capitalists who need to protect their 
investments. Many of our systems have employed compact 
Forth-like engines to implement run-time logic. 


Silicon Composers (web site address www.silcomp.com) sells 
single-board computers using the 16-bit RXT 2000 and the 32- 
bit SC32 Forth chips for standalone, PC plug-in, and VME- 
based operation. Each SBC comes with Forth development soft- 
ware. Our SBCs are designed for use in embedded control, data 
acquisition, and computation-intense control applications. 

T-Recursive Technology specializes in contract development 
of hardware and software for embedded microprocessor sys- 
tems. From concept, through hardware design, prototyping, 
and software implementation, "doing more with less" is our 
goal. We also develop tools for the embedded marketplace 
and, on occasion, special-purpose software where "small" and 
"fast" are crucial. 


Computer Solutions, Ltd. (COMSOL to its friends) is Europe's 
premier supplier of embedded microprocessor development 
tools. Users and developers for 18 years, COMSOL pioneered 
Forth under operating systems, and developed the 
groundbreaking chipFORTH hot/target environment. Our 
consultancy projects range from single chip to one system 
with 7000 linked processors, wrww.computer-solutions.co.uk. 

Digalog Corp. (vmw.digalog.com) has supplied control and 
instmmentation hardware and software products, systems, and 
services for the automotive and aerospace testing industry for 
over 20 years. The real-time software for these products is Forth 
based. Digalog has offices in Ventura CA, Detroit MI, Chicago 
IL, Richmond VA, and Brighton UK. 


Tateno Dennou, Inc. was founded in 1989, and is located in 
Ome-city Tokyo. Our business is consulting, developing, and 
reselling products by importing from the U.S.A. Our main 
field is DSP and high-speed digital. 

ASO Bldg., 5-955 Baigo, Ome,Tokyo 198-0063 Japan 

+81-428-77-7000 • Fax: +81-428-77-7002 
http://www.dsp-tdi.com • E-mail: sales@dsp-tdi.com 


Forth Engineering has collected Forth experience since 1980. 
We now concentrate on research and evolution of the Forth 
principle of programming and provide Holon, a new genera- 
tion of Forth cross-development systems. Forth Engineering, 
Meggen/Lucerne, Switzerland - http://wrww.holonforth.com. 


Taygeta Scientific Incorporated speciaUzes in scientific soft- 
ware: data analysis, distributed and parallel software design, 
and signal processing. TSI also has expertise in embeddeci 
systems, TCP/IP protocols and custom applications, WWW 
and FTP services, and robotics. Taygeta Scientific Incoporated 
• 1340 Munras Avenue, Suite 314 • Monterey, CA 93940 • 
408-641-0645, fax 408-641-0647 • http://www.taygeta.com 


FORTH, Inc. has provided high-performance software and ser- 
vices for real-time applications since 1973. Today, companies in 
banking, aerospace, and embedded systems use our powerful 
Forth systems for Windows, DOS, Macs, and micro-controllers. 
Current developments include token-based architectures, (e.g.. 
Open Firmware, Europay's Open Terminal Architecture), ad- 
vanced cross-compilers, and industrial control systems. 

The iTV Corporation is a vertically integrated computer com- 
pany developing low-cost components and information ap- 
pliances for the consumer marketplace. iTVc supports the 
Forth development community. The iTVc processor instruc- 

tinn QPt hacpH nn Forth r^fimitivpc anH mr^ct Hp^/f^lr^r^mfinf 

tools, system, and application code are written in Forth. 

Keycorp (www.keycorp.com.au) develops innovative hardware 
and software solutions for electronic transactions and bank- 
ing systems, and smart cards including GSM Subscriber Identi- 
fication Modules (SIMs). Keycorp is also a leading developer of 
multi-application smart card operating systems such as the 


Triangle Digital Services Ltd. — Manufacturer of Industrial Em- 
bedded Forth Computers, we offer solutions to low-power, 
portable data logging, CAN and control applications. 
Optimised performance, yet ever-increasing functionality of 
our 16-bit TDS2020 computer and add-on boards offer versa- 
tility. Exceptional hardware and software support to devel- 
opers make us the choice of the professional. 


Individual Benefactors 


Everett F. Carter, Jr. Zvie Liberman 
Edward W. Falat Marty McGowan 
Michael Frain Gary S. Nemeth 
Guy Grotke Marlin Ouverson 
John D. Hall Richard C. Wagner 
Guy Kelly 
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Twentieth Anniversary of the 
FORML Conference 



// 



Forth interfaces 
to the World" 



November 20-22, 1998 • Pacific Grove, California 



FORML welcomes papers on a variety of Forth-related topics,even those which do not adhere strictly to the published 
theme. Some theme-related topics of interest, and for which papers are particularly sought, include: 



Overcoming the Limits to Growth 

Forth in "Foreign" Embedded Environments 
(e.g., Windows CE, Inferno, pSOS, Vrtx) 

Forth and Rapid Application Development (RAD) 



Forth on New 32-bit Embedded Chips 
Forth in a Windows World 
Co-Existing with C 
Forth and the Internet/Java 



"20/20: Hindsight and Vision" is planned as a two-part evening panel.Part one will offer a look at Forth's history — 
what worked well and what might have been done differently — and will feature participants who played key 
roles in Forth's evolution; part two will evaluate Forth's current status and propose courses of action to lead 
Forth into a stronger position in coming years. 



Registration information 



SAVE UP TO 20% 

Advance registration required. Complete registration 
by October 1 5, 1 998 to receive a ten percent discount. 
FIG members are eligible for an additional ten percent 
discount on any registration fee. 



Inquiries about conference registration may be 

directed to office@forth.org or to FORML Conference 
Registration, c/o Forth Interest Group, 100 Dolores 
Street, Suite 183, Carmel, California 93923. 

Conference attendee in double room $595 
Non-conference guest in same room $435 
Under 1 8 years old in same room $225 
Conference attendee in single room $795 
Infants under two years in same room — free 



Conference Chairman: Marlin Ouverson - editor@)forth.org 
Conference Director: Robert Reiling - ami@best.com 

The FORML Conference is held at the Asilomar Conference Center, a National Historic Landmark noted for its 
wooded grounds just yards from Pacific Ocean dunes and tidepools on California's Monterey Peninsula. Lodging 
and all meals included with conference registration, and spouses and guests of conference participants can join 
numerous recreational outings and activities. 

Please confirm your attendance early — accommodations may be limited due to this facility's immense popularity. 



Call for Papers 



Please submit the subject of your paper as soon as 
possible in order to be included in pre-conference 
publicity. Final titles with abstracts are due by October 
1, 1998. Completed papers should be received by 
November 1 in order to be included in the conference 
notebooks that are distributed to all attendees. 



E-mail submissions may be sent to editor@forth.org 
with "FORML paper"in the subject line. Hard copy may 
be mailed to FORML Conference Chairman, c/o Forth 
Interest Group, 100 Dolores Street, Suite 183, Carmel, 
California 93923. 



